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INVALID 

OP 



01B2 
QM111 
CLF 122 



SR 1C 



MULTIPLY 



****1101 

INVALID 

OP 



01B6 
QM111 
CLF 122 



DIVIDE 



****1110 

INVALID 

OP 



01BA 
QM111 
CLF 122 



ADD 

LOGICAL 



****1111 

INVALID 

OP 



01BE 
QM111 
CLF 122 



ALR IF 



SUBTRACT 

LOGICAL 



TYPE OF 
OPERATION 



BRANCHING 

AND 

STATUS 

SWITCHING 



SLR 



LDR 



02A4 
QB500 
CLF 105 



COMPARE 



02A8 
QB730 
CLF 106 



CDR 2A 



02AC 
QB730 
CLF 106 



02B0 
QB8G0 
CLF 113 



ADR 



SDR 2C 



ADD 

NORMALIZED 



SUBTRACT 

NORMALIZED 



MDR 



MULTIPLY 



02B4 
QB900 
CLF 114 



DIVIDE 



02B8 
QB750 
CLF 105 



02BC 
QB750 
CLF 105 



DDR 2E AWR 2F SWR 

FLOATING 

ADD SUBTRACT POINT 

UNNORMALIZED UNNORMALIZED LONG 



0324 
QG400 
CLF 118 



LERI 39 



COMPARE 



0328 
QG400 
CLF 118 



032C 
QG400 
CLF 118 



0330 
QG700 
CLF 119 



CER 3A 



AER 3B 



SER 3C 



ADD SUBTRACT 

NORMALIZED NORMALIZED 



0334 
QG500 
CLF 120 



MER 3D 



MULTIPLY 



DIVIDE 



0338 
QG400 
CLF 118 



033C 
QG400 
CLF 118 



DER 3E AUR 3F SUR 

FLOATING 

ADD SUBTRACT POINT 

UNNORMALIZED UNNORMALIZED SHORT 



0324 
QG400 
CLF 115 



LH 1 49 



COMPARE 

HALFWORD 



0724 
QE580 
CLF 106 



L 59 



COMPARE 



| 02A5 
IQB500 
I CLF 105 



LD 69 



COMPARE 



0328 
QG400 
CLF 115 



CH 1 4A 



ADD 

HALFWORD 



0728 
QE580 
CLF 106 



C 5A 
ADD 



02A9 
QB730 
CLF 106 

CD 6A 



032C 
QG400 
CLF 115 



AHI4B 



SUBTRACT 

HALFWORD 



072C 
QE580 
CLF 106 



A 5B 



SUBTRACT 



| 02AD 
I QB730 
I CLF 106 



AD 6B 



0330 
QG700 
CLF 116 



SHI4C 



MULTIPLY 

HALFWORD 



0730 
0E580 
CLF 113 



S 5C 



MULTIPLY 



1 02B1 
IQB800 
I CLF 113 



SD 6C 



ADD SUBTRACT 

NORMALIZED NORMALIZED 



MULTIPLY 



0334 
QG500 
CLF 117 



INVALID 

OP 



0734 
QM112 
CLF 122 



M 5D 



DIVIDE 



| 02B5 
I QB900 
I CLF 114 



MD 6D 



DIVIDE 



0338 
QG400 
CLF 115 



033C 
QG400 
CLF 115 



CVD 



CVB 



CONVERT 
TO DECIMAL 



0738 
QE800 
CLF 111 



D 5E 



ADD 

LOGICAL 



| 02B9 
I QB750 
I CLF 105 



DD 6E 



CONVERT 
TO BINARY 



073C 
QE900 
CLF 112 



SUBTRACT 

LOGICAL 



FIXED POINT 

HALFWORD 

AND 

BRANCHING 



FIXED POINT 

FULLWORD 

AND 

LOGICAL 



ADD 

UNNORMALIZED 



02BD 

QB750 

CLF 105 

6F SW 

FLOATING 

SUBTRACT POINT 
UNNORMALIZED LONG 



0326 
QG400 
CLF 118 



LE 79 



COMPARE 



032A 
QG400 
CLF 118 



CE 7 A 



032E 
QG400 
CLF 118 



AE 7B 



0332 
QG700 
CLF 119 



SE 7C 



ADD SUBTRACT 

NORMALIZED NORMALIZED 



MULTIPLY 



0336 
QG500 
CLF 120 



ME 7D 



DIVIDE 



033A 
QG400 
CLF 118 



033E 
QG400 
CLF 118 



DE 7E AU 7F SU 

FLOATING 

ADD SUBTRACT POINT 

UNNORMALIZED UNNORMALIZED SHORT 



1 0326 
I QG400 
I CLF 115 



1 032A 
I QG400 
I CLF 115 



| 032E 
I QG400 
I CLF 115 



0332 
QG700 
CLF 116 



| 0336 
I QG500 
I CLF 117 



| 033A 
I QG400 
I CLF 115 



033E 
QG400 
CLF 115 




RR/RX OPERATION CODES 
DATE 3 JUN 66 MACH# 2050 



FRAME 

P#N# 

IBM CORP# SDD PAGE 



2 



HOCddH 



IBM CONFIDENTIAL 



IDB01 03 



1000#### 



RS/SI 

FORMAT 



1011 #### 



1100#### 



1101 #### 



ss 

FORMAT 



1110 #### 



1111 #### 



####0000 



80 SSM 

SET 

SYSTEM MASK 



0702 
QJ200 
CLF 209 



####0001 



INVALID 

OP 



####0010 



####0011 



###0100 



####0101 



####0110 



####0 111 



####1000 



####1001 



####1010 



####1011 



####1100 



#### 1101 



####1110 



####1111 



LPSWl 83 



DIAGI84 



WRD 1 85 



RDD 1 86 



BXH 1 87 



BXLE 1 88 



SRL 1 89 



SLL I 8A 



SRAI8B 



SLA 1 8C 



SRDL I 8D 



SLDL I 8E 



SRDA I 8F 



SLDA 



0706 
QM111 
CLF 122 



LOAD PSW 



070A 
QJ200 
CLF 210 



DIAGNOSE 



070E 
QY110 
CLF 213 



WRITE 

DIRECT 



0712 
QJ400 
CLF 211 



READ 

DIRECT 



0716 
QJ400 
CLF 212 



BRANCH ON 
INDEX HIGH 



071A 
QJ600 
CLF 214 



BRANCH ON SHIFT RI 
INDEX LOW OR SINGLE - 
EQUAL LOGICAL 



SHIFT RIGHT SHIFT LEFT 
SINGLE - SINGLE - 
LOGICAL LOGICAL 



SHIFT RIGHT SHIFT LEFT SHIFT RIGHT SHIFT LEFT SHIFT RIGHT SHIFT LEFT 



071E 
QJ600 
CLF 214 



0722 
QJ080 
CLF 201 



STM 91 



1001 #### 



STORE 

MULTIPLE 



1010 #### 



0902 
QK666 
CLF 224 



INVALID 

FORMAT 



0128 OR 

0129 
QN111 
CLF 122 



INVALID 

FORMAT 



012C OR 
012D 
ONI 11 
CLF 122 



INVALID 

FORMAT 



0130 OR 

0131 
ONI 11 
CLF 122 

INVALID 

OP 



0600 
QM112 
| CLF 122 

INVALID 

FORMAT 



0138 OR 

0139 
0N111 
CLF 122 

INVALID 

OP 



locoo 

I QM111 
I CLF 122 



TEST 

UNDER MASK 



0906 
QK555 
CLF 222 



TM 92 
MOVE 



MVI 93 



090A 
QK222 
CLF 220 



TEST AND 
SET 



090E 
QK300 
CLF 220 



TS 94 
AND 



NI 95 



0912 
QK222 
CLF 220 



COMPARE 

LOGICAL 



0916 
0K555 
CLF 223 



CL I 96 
OR 



01 97 



XI 98 



091A 
0K222 
CLF 220 



EXCLUSIVE 

OR 



091E 
QK222 
CLF 220 



LOAD 

MULTIPLE 



0922 
OK 6 66 
CLF 224 



0726 
0J090 
CLF 202 



INVALID 

OP 



SINGLE 



072A 
0J100 
CLF 203 



INVALID 

OP 



SINGLE 



072E 
QJ110 
CLF 204 



INVALID 

OP 



DOUBLE - 
LOGICAL 

0732 
0J120 
CLF 205 



DOUBLE - 
LOGICAL 

0736 
0J130 
CLF 206 



DOUBLE 



073A 
0J140 
CLF 207 



DOUBLE 



073E 
0J150 
CLF 208 



BRANCHING* 

STATUS 

SWITCHING* 

AND 

SHIFTING 



SIO 9D 



TIO 9E 



HIO 9F 



TCH 



0926 
QM111 
CLF 122 



092A 
QM111 
CLF 122 



092E 
QM111 
CLF 122 



START I 0 



0932 
QK700 
CLF 225 



TEST I 0 



0936 
0K700 
CLF 225 



HALT I 0 



093A 
QK700 
CLF 225 



TEST 

CHANNEL 



093E 
QK700 
CLF 225 



FIXED POINT 
LOGICAL 
AND I/O 




MOVE 

NUMERIC 



10604 
I 0P800 
I CLF 232 



MVN D2 
MOVE 



MVC D3 



10608 
I 0P800 
I CLF 232 



MOVE 

ZONE 



060C 
0P800 
CLF 232 



MVZ D4 
AND 



NC I D5 



10610 
I 0P800 
I CLF 232 



COMPARE 

LOGICAL 



| 0614 
I0P100 
I CLF 230 



CLC D6 
OR 



OC D7 



|0618 
I OP800 
I CLF 232 



EXCLUSIVE 

OR 



I061C 
I 0P800 
I CLF 232 



INVALID 

OP 



INVALID 

OP 



INVALID 

OP 



INVALID 

OP 



DC TR DD 

TRANSLATE TR 



10620 
IQM112 
I CLF 122 



10624 
IQM112 
I CLF 122 



10628 
IQM112 
CLF 122 



I 062C 
IQM112 
I CLF 122 



|0630 
I 0P900 
I CLF 233 



TRANSLATE 
AND TEST 



10634 
I 0P900 
I CLF 233 



TRT DE 
EDIT 



ED IDF 



EDMK 



(0638 
I QP200 
I CLF 231 



EDIT 

AND MARK 



| 063C 
I 0P200 
I CLF 231 



LOGICAL 

AND 

VFL 



MOVE 

WITH OFFSET 



1 0C04 
I QS502 
I CLF 244 



MVO F2 
PACK 



1 0C08 
I QS500 
I CLF 243 



PACK F3 

UNPACK 



lococ 

I QS600 
I CLF 245 



UNPK 



INVALID 

OP 



INVALID 

OP 



INVALID 

OP 



INVALID 

OP 



ZAP F9 



CP FA 



AP FB 



SP FC 



MP FD 



locio 

IQM111 
I CLF 122 



I 0C14 
iQMlll 
I CLF 122 



1 0C18 
IQMlll 
I CLF 122 



locic 

IQMlll 
I CLF 122 



ZERO 
AND ADD 



1 0C20 
I QS705 
I CLF 246 



COMPARE 

DECIMAL 



| 0C24 
I QS200 
I CLF 241 



ADD 

DECIMAL 



| 0C28 
I QS110 
I CLF 240 



SUBTRACT 

DECIMAL 



| 0C2C 
IQS110 
I CLF 240 



MULTIPLY 

DECIMAL 



1 0C30 
I QS400 
I CLF 242 



DIVIDE 

DECIMAL 



1 0C34 
I QS400 
I CLF 242 



INVALID 

OP 



1 0C38 
I QM111 
I CLF 122 



IDB 003 RS / SI / SS OPERATION CODES - MODEL 50 






























IBM CONFIDENTIAL 



CLF01 02 



START I-FETCHJ 



OT 100 



0197 



OP BUFFER -> L# 
1110 -> S 4-7# 
IAR -> SAR (IF 
REFETCH IS ON)# 
IAR +2 -> SAR 
(IF REF IS OFF) 




NO 



EVEN HALFWORD 



QT110 



REFETCH 

:and odd or even: 

HALF WORD 



ODD AND REFETCH 



GOTHS 0199 



014A 



QT110 



ODD-NO REF 
0148 



SET G1G2 a 0# 

SET LSFN a 11 
(GENERAL REG)# 




YES 



QT115 




L 16-31 -> M 0-15# 

L 28-31 (X) -> J REG# 
SET ILC = INST LENGTH# 
SET LSFN = 11 (GEN REG) 
SET SI ON# 

SET SO ON IF XaO# 

SET MB = 3# 

SET LB a o# 



IAR + 2 -> SAR# 
SET LB = 0# 



0185 



QT115 



NO 

014E 



CLF 122 



CLF 122 



SDR -> 
SDR -> 



M 0-31# 

OP BUFFER# 
SDR 12-15 (X) -> J# 
SDR 16-19 (B) — >ID# 
SET ILC# 

SET 1 SYL ON (IF 
SDR 16-17 *00)# 

SET SO ON IF X*0# 
SET SI ON IF B«0# 





s—" s 


SET S 4-7 a mo# 






f \ 


SET MB a 2# 


CLF 122 


w 


2 


SET LB ■ 0# 






V J 


SET REFETCH OFF# 


QT115 



SET ILC a 01# 
IAR + 2 -> IAR# 
0101 -> F REG# 



ON BOUNDS 



QT115 



0188 



note: 



MACHINE CYCLES ARE SAVED (IF THE 
DATA PATHS ARE FREE) BY DOING THE 
FIRST STEP OF I-FETCH DURING THE 
LAST STEP OF THE PREVIOUS EXECUTE 
ROUTINE# 

(FREE ENTRY TO I-FETCH) 



LS(MD) -> L (B)# 

M 8-11 (Rl) -> MD# 
ZEROS -> M 16-19# 
SET LB a i # 

SET MB » 3# 

1111 -> BYTE STATS, 
IAR + 2 -> IAR (IF 
ILC * 01)# 

IAR + 4 -> IAR (IF 
ILC « IX)# 

M ( 0-3 ) »ROAR 



I 



XT1 




CLF 001 
SHEET 2 




YES 

0187 



M 8-11 (R1)->MD 
SET LB * 1# 

SET G1G2 = 0# 
1111->BYTE STAT 
IAR + 2 -> IAR 
(ILC * 01) 

M(0— 3)*>R0AR 



mJ 



SDR 


-> OP 


BUFFER. 1 


SDR 


0-15 — > M 16—31# 


SET 


SI ON 


IF B=0# 


SET 


1 SYL 


STAT ON IF 


SDR 


16-17 


= 00. 


SET 


MB a j 


2# 


SET 


G1G2 : 


“ 0# 


SDR 


0—3 ( ! 


B) -> MD. 



I 



CLF 001 
SHEET 2 




GtTllO 



0149 



SET MB = 3# 
SET LB a 0# 
SET LSFN = 11 
(GENERAL REG)# 




SDR 


— > L# 


SET 


LB = 1# 


SET 


1 SYL STAT 


ON 


IF T 16-17 


IS 


EQUAL 00. 


SET 


G1G2 = 0# 



CLF 122 




I OFF BOUNDS 

■< 



QT115 



0189 



L 16-31 -> M 


0-15 


L 28-31 (X) 


— > J# 


SET 


ILC# 




SET 


SO ON IF 


• 

o 

H 

X 


SET 


SI ON. 




SET 


S 4-7 a 


1110# 


SET 


REFETCH 


OFF. 



NO 




QT115 



YES 

019B 



M 8-11 (R1)->MD 
1111->BYTE STAT 
IAR + 2 -> IAR 
(ILC * 01). 
M(0— 3)->R0AR 



XT1 




CLF 001 
SHEET 2 



•CLF 001 FIRST LEVEL I-FETCH (SHEET 1 OF 2) 



FIRST LEVEL I-FETCH 
DATE 3 JUN 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# SDD PAGE 3 



Honro 





IBM CONFIDENTIAL 



CLF01 01 



SHEET 1 CLF 103 





BR\ 

U \ 



FUNCTION 
ON M 0-3 
A BR ON S0(X=0) 
IF RX FORMAT. 

\ B BR ON SI / 

\_i Hli-J 





M 0-3 


B FIELD 


X FIELD 


BRANCH 




INSTRUCTION FORMAT 




>X N. 




M 0-3 


B FIELD 


X FIELD 


BRANCH 


INSTRUCTION FORMAT 






IN HEX 


ADDRESS 


ADDRESS 


ADDRESS 








X^ FUNCTION 

S DRAMrU r-IM X 




IN HEX 


ADDRESS 


ADDRESS 


ADDRESS 






1 


0 


NOT 0 


— 


0100 \ 


RR 


BRANCHING AND STATUS SWITCHING 




\ FORMAT 


21 


7 


NOT 0 


NOT 0 


one 


RX FLOATING POINT SHORT 




2 


0 


B = 0 


— 


0101 


RR 


BRANCHING AND STATUS SWITCHING 




N^^X 


22 


7 


B a 0 


NOT 0 


011D 


RX FLOATING POINT SHORT 




3 


1 


NOT 0 


— 


0104 


RR 


FIXED POINT FULLWORD AND LOGICAL 




. 


23 


7 


NOT 0 


X = 0 


011E 


RX FLOATING POINT SHORT 




4 


1 


B * 0 


— 


0105 


RR 


FIXED POINT FULLWORD AND LOGICAL 






24 


7 


B a o 


X a o 


011F 


RX FLOATING POINT SHORT 




5 


2 


NOT 0 


— 


0108 


RR 


FLOATING POINT LONG 






25 


8 


NOT 0 


— 


0120 


RS SI BRANCHING* STATUS SWITCHING* AND 


SHIFTING 


6 


2 


B » 0 


— 


0109 


RR 


FLOATING POINT LONG 






26 


8 


B = 0 


— 


0121 


RS SI BRANCHING* STATUS SWITCHING* AND 


SHIFTING 


7 


3 


NOT 0 


— 


010C 


RR 


FLOATING POINT SHORT 






27 


9 


NOT 0 


— 


0124 


RS SI FIXED POINT LOGICAL AND I 0 




8 


3 


B = 0 


— 


010D 


RR 


FLOATING POINT SHORT 






28 


9 


B = 0 


— 


0125 


RS SI FIXED POINT LOGICAL AND I 0 




9 


4 


NOT 0 


NOT 0 


0110\ 


RX 


FIXED POINT HALFWORD AND BRANCHING 






29 


A 


NOT 0 


— 


0128 


INVALID FORMAT 


• 


10 


4 


B * 0 


NOT 0 


0111 


RX 


FIXED POINT HALFWORD AND BRANCHING 






30 


A 


B = 0 


— 


0129 


INVALID FORMAT 




11 


4 


NOT 0 


X a o 


0112 


RX 


FIXED POINT HALFWORD AND BRANCHING 






31 


B 


NOT 0 


— 


012C 


INVALID FORMAT 




12 


4 


B « 0 


X a 0 


0113 


RX 


FIXED POINT HALFWORD AND BRANCHING 






32 


B 


B a 0 


— 


012D 


INVALID FORMAT 




13 


5 


NOT 0 


NOT 0 


0114 


RX 


FIXED POINT FULLWORD AND LOGICAL 






33 


C 


NOT 0 


— 


0130 


INVALID FORMAT 




14 


5 ‘ 


B a 0 


NOT 0 


0115 


RX 


FIXED POINT FULLWORD AND LOGICAL 






34 


C 


B a 0 


— 


0131 


INVALID FORMAT 




15 


5 


NOT 0 


X a 0 


0116 


RX 


FIXED POINT FULLWORD AND LOGICAL 






35 


D 


NOT 0 


— 


0134 


SS LOGICAL 




16 


5 


B a 0 


X a 0 


0117 


RX 


FIXED POINT FULLWORD AND LOGICAL 






36 


D 


B a 0 


— 


0135 


SS LOGICAL 




17 


6 


NOT 0 


NOT 0 


0118 


RX 


FLOATING POINT LONG 






37 


E 


NOT 0 


— 


0138 


INVALID FORMAT 




18 


6 


B « 0 


NOT 0 


0119 


RX 


FLOATING POINT LONG 






38 


E 


B a 0 


— 


0139 


INVALID FORMAT 




19 


6 


NOT 0 


X a 0 


011A 


RX 


FLOATING POINT LONG 






39 


F 


NOT 0 


— 


013C 


SS DECIMAL 




20 


6 


B « 0 


X * 0 


011B 


RX 


FLOATING POINT LONG 






40 


F 


B a 0 


— 


013D 


SS DECIMAL 




1 


2 


3 4 


5 6 


7 8 


9 


10 11 12 13 14 15 16 17 


18 19 20 




21 


22 


23 24 


25 26 


27 28 


29 30 31 32 33 34 35 36 37 


38 39 40 



TOl 

V' 

002 



Til 

V" 

003 



T21 

V" 

004 




T41 

V" 

005 



T45 

S' 

005 



T51 

S' 

006 





T65 

007 







002 

A 




003 

■CLF PAGES 











'CLF 001 FIRST LEVEL I— FETCH (SHEET 2 OF 2) 



T71 

V' 

007 




T81 

008 



T91 

N/ 

009 



TA1 

012 



TB1 

v-' 

012 



TCI 

V' 

012 



TD1 

010 



TEl 

V" 

012 



TF1 

V" 

on 







-i r- 






007 

A 




-i r 



007 
■CLF PAGES 



T80 

v 

008 



T90 

V 

009 



-» p 






-» r 






FIRST LEVEL I— FETCH 
DATE 3 JUN 66 MACH. 2050 

FRAME 

P.N. 

IBM CORP. SDD PAGE 



K-o~ni~o 





IBM CONFIDENTIAL 



CLF02 01 



CLF 001 



TOO 

S/ 



QA111 



0100 



CLF 001 

i 



T01 



QA111 



0101 



LS <R2) -> R» 




LS>(R2) -> R 


IAR -> H. 




IAR -> H. 


SET MB = 0. 




SET «MB = 0» 


SET S 1-3 OFF. 




SET0SF1— 3 OFF. 



-4fc— 



M 4-7 
IN 



OP 

CD 




OP CODE 
IN 



INSTRUCTION 



HEX 


HEX 




0 


00 


INVALID OPERATION CODE 


1 


01 


INVALID OPERATION CODE 


2 


02 


INVALID OPERATION CODE 


3 


03 


INVALID OPERATION CODE 


4 


04 


SET PROGRAM MASK 


5 


05 


BRANCH AND LINK 


6 


06 


BRANCH ON COUNT 


7 


07 


BRANCH ON CONDITION 



OP 

CD 





OP 

CD 

.02 








OP 

CD 

.07 




M 4-7 
IN 
HEX 


OP CODE 
IN 
HEX 


. INSTRUCTION 






6 


08 


SET KEY 






9 


09 


INSERT KEY 






A 


OA 


SUPERVISOR CALL 






B 


OB 


INVALID OPERATION CODE 






C 


OC 


INVALID OPERATION CODE 






D 


OD 


INVALID OPERATION CODE 






E 


OE 


INVALID OPERATION CODE 






F 


OF 


INVALID OPERATION CODE 






8 


9 


A B C D 


E 


F 



OP 




OP 


CD 




CD f 







OP 

CD 






OP 

CD 

.OB 




OP 

CD 




OP 

CD 

.OD 




OP 

CD 

.OE 




OP 

CD 




X 



SEE IDB 002 FOR LOCATION OF ROUTINES 






•CLF 002 SECOND LEVEL I-FETCH - RR FORMAT - BRANCHING AND STATUS SWITCHING 



CLF002 

DATE 27 MAY 66 MACH# 2050 

FRAME 

P#N. 

IBM CORP# SDD PAGE 2 



0_JU.0CV! 






IBM CONFIDENTIAL 



CLF03 01 




M 4-7 


OP CODE 




IN 


IN 




HEX 


HEX 




0 


10 


LOAD POSITIVE 


1 


11 


LOAD NEGATIVE 


2 


12 


LOAD AND TEST 


3 


13 


LOAD COMPLEMENT 


4 


14 


AND 


5 


15 


COMPARE LOGICAL 


6 


16 


OR 


7 


17 


EXCLUSIVE OR 



INSTRUCTION 



FUNCTION 
BRANCH ON 
M 4-7 



M 4-7 
IN 
HEX 


OP CODE 
IN 
HEX 




8 


18 


LOAD 


9 


19 


COMPARE 


A 


1A 


ADD 


B 


IB 


SUBTRACT 


C 


1C 


MULTIPLY 


D 


ID 


DIVIDE 


E 


IE 


ADD LOGICAL 


F 


IF 


subtract logical 



INSTRUCTION 








SEE IBB 002 FOR LOCATION OF ROUTINES 



CLF 003 SECOND LEVEL I-FETCH - RR FORMAT - FIXED POINT FULLWORD AND LOGICAL 



CLF003 

DATE 27 MAY 66 MACH. 

FRAME 

P»N. 

IBM CORP. SDD PAGE 



2050 



CMOTirn 








IBM CONFIDENTIAL 



CLF04 01 



CLF 001 





0G010 



0108 



QG010 



0109 



QG010 



010C 



QG010 



010D 



LS (R2) -> L. 
10 -> LSFN (FR) 
O'S -> F.R REGS 
SET CARRY STAT 
OFF TO SIGNAL 
FLOAT PT LONG. 




LS (R2) -> L. 
10 -> LSFN <FR) 
O'S -> F.R REGS 
SET CARRY STAT 
OFF TO SIGNAL 
FLOAT PT LONG. 




LS (R2) -> L. 
10 -> LSFN (FR) 
O'S -> F.R REGS 
SET CARRY STAT 
OFF TO SIGNAL 
FLOAT PT LONG. 




LS (R2) -> L. 
10 -> LSFN (FR) 
O'S -> F.R REGS 
SET CARRY STAT 
OFF TO SIGNAL 
FLOAT PT LONG. 




M 4-7 


OP CODE 


INSTRUCTION 




IN 


IN 






HEX 


HEX 






0 


20 


LOAD POSITIVE - FLOATING POINT LONG 






30 


LOAD POSITIVE - FLOATING POINT SHORT 




1 


21 


LOAD NEGATIVE - FLOATING POINT LONG 






31 


LOAD NEGATIVE - FLOATING POINT SHORT 




2 


22 


LOAD AND TEST - FLOATING POINT LONG 






32 


LOAD AND TEST - FLOATING POINT SHORT 




3 


23 


LOAD COMPLEMENT - FLOATING POINT LONG 






33 


LOAD COMPLEMENT - FLOATING POINT SHORT 




4 


24 


HALVE - FLOATING POINT LONG 
HALVE - FLOATING POINT SHORT 






34 




5 


25 


INVALID 






35 


INVALID 




6 


26 


INVALID 






36 


INVALID 




7 


27 


INVALID 






37 


INVAtID 




0 


1 


2 3 4 5 6 






M 4-7 


OP CODE 


INSTRUCTION 


IN 


IN 




HEX 


HEX 




8 


28 


LOAD - FLOATING POINT LONG 




38 


LOAD - FLOATING POINT SHORT 


9 


29 


COMPARE - FLOATING POINT LONG 




39 


COMPARE - FLOATING POINT SHORT 


A 


2A 


ADD NORMALIZED - FLOATING POINT LONG 




3A 


ADD NORMALIZED - FLOATING POINT SHORT 


B 


2B 


SUBTRACT NORMALIZED - FLOATING POINT LONG 




3B 


SUBTRACT NORMALIZED - FLOATING POINT SHORT 


C 


2C 


MULTIPLY - FLOATING POINT LONG 




3C 


MULTIPLY - FLOATING POINT SHORT 


D 


2D 


DIVIDE - FLOATING POINT LONG 




3D 




E 


2E 


ADD UNNORMALIZED - FLOATING POINT LONG 




3E 


ADD UNNORMALIZED - FLOATING POINT SHORT 


F 


2F 


SUBTRACT UNNORMAL IZED - FLOATING POINT LONG 




3F 


SUBTRACT UNNORMALIZED - FLOATING POINT SHORT 






DIVIDE - FLOATING POINT SHORT 


8 


9 


A B C D E F 




OP CD 


op cd[ 


OP CD 




OP CD 




OP CD 




OP CD 


OP CD 




OP CD 


28 


29 


2A 




2B 




2C 




2D 


2E 




2F 


V38 J 


<39 J 


V3A> 


<3B> 


<3C J 


V3D > 


<3E V ' 


<3F J 




SEE IDB 002 FOR LOCATION OF ROUTINES 




• CLF 004 SECOND LEVEL I— FETCH - RR FORMAT - FLOATING POINT LONG AND SHORT 



CLF004 

DATE 27 MAY 66 MACH. 2050 

FRAME 

P*N* 

IBM CORP. SDD PAGE 2 



OjlLO^ 





IBM CONFIDENTIAL 



CLF05 01 



CLF 001 




L+ M 16-31 ->R 
(BfD ADDRESS)* 

LS (X) -> L. 



CLF Q01 




QA111 



0111 



M 16-31 -> R 
(B+D ADDRESS). 

LS (X) -> L. 



CLF 001 




L + M 16-31 -X 
{EFF ADDRESS). 
LS (Rl) -> R. 
IAR -> H. 

SET MB»0* LB=3» 
SET S 0-3 =0000 



CLF 001 




M 16-31 -> L 
(EFF ADDRESS). 
LS (Rl) -> R. 
IAR -> H. 

SET MB»0.LB*3. 
SET S 0-3 =0000 



L + R -> L (EFF 
ADDRESS). 

LS (Rl) -> R. 
IAR -> H. 

SET MB*0.LB=3» 
SET S 0-3 =0000 



Si—— — — - .-l, — I - - - - SB 





•CLF 005 SECOND LEVEL I-FETCH - RX FORMAT - FIXED POINT HALFWORD AND BRANCHING 



CLF005 

DATE 27 MAY 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# SDD PAGE 2 



o_iULOtn 






IBM CONFIDENTIAL 



CLF06 01 



C LF 00 1 
T50 



CLF 001 



T51 

NX 



CLF 001 



T54 



CLF 001 
T55 

NX 



QA111 



0114 



0A111 



0115 



0A111 



0116 



QA111 



0117 



L + M 16-31 — >R 




M 16-31 -> R 




L + M 16—3 1— >R* 




M 16-31 ->R*SAR 


(B+D ADDRESS)# 




(B+D ADDRESS)* 




SAR (EFF ADDR ) • 




(EFF ADDRESS). 


LS (X) -> L* 




LS (X) -> L* 




LS (Rl) -> L* 




LS (Rl) -> L. 





•CLF 006 SECOND LEVEL I-FETCH - RX FORMAT - FIXED POINT FULLWORD AND LOGICAL# 



CLF 006 

DATE 27 MAY 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# SDD PAGE 2 



o'onro 





IBM CONFIDENTIAL 



CLF07 01 



CLF 001 



CLF 001 



CLF 001 



QG010 




0118 



L + M 16—31 -v>R 
(B+D ADDRESS) • 
LS (X) -> L# 
SET S 0-3 EQUAL 
1110 TO SIGNAL 
FLOAT PT LONG# 



L 



QG010 




0119 



QG010 




CLF 001 



T71 

NX 



CLF 001 



T64 



CLF 001 



T65 



011C 



QG010 




011D 



QG010 



011A 



00010 



CLF 001 



T74 

NX 



CLF 001 



T75 



011B 



QG010 




011E 



06010 



011F 



M 16-31 -> R 
(B+D ADDRESS). 
LS (X) -> L. 
SET S 0-3 EQUAL 
1110 TO SIGNAL 
FLOAT PT LONG. 



L + M 16-31 ->R 
(B+D ADDRESS). 
LS (X) -> L. 
SET S 0-3 EQUAL 
1111 TO SIGNAL 
FLOAT PT SHORT. 



M 16-31 -> R 
(B+D ADDRESS). 
LS (X) -> L. 
SET S 0-3 EQUAL 
1111 TO SIGNAL 
FLOAT PT SHORT. 



L + M 16-31 -> 
R» SAR. LS-WS1. 

SET S 0-3 EQUAL 
1110 TO SIGNAL 
FLOAT PT LONG. 



M 16-31 -> R. 
SAR, LS-WS1. 

SET S 0-3 EQUAL 
1110 TO SIGNAL 
FLOAT PT LONG. 



L + M 16-31 -> 
R» SAR. LS— WS1. 

SET S 0-3 EQUAL 
1111 TO SIGNAL 
FLOAT PT SHORT. 



M 16-31 -> R, 
SAR. LS-WS1. 

SET S 0-3 EQUAL 
1111 TO SIGNAL 
FLOAT PT SHORT. 



I 



I 

<*• 



L+R ->R»SAR.WS1 
(EFF ADDRESS). 

SET F * 0000. 



L 




-a- 




M 4-7 
IN 
HEX 

8 

9 

A 

B 

C 

D 

E 

F 

8 



OP CODE 
IN 
HEX 

68 

78 

69 

79 

6A 

7A 

6B 

7B 

6C 

7C 

6D 

7D 

6E 

7E 

6F 

7F 



INSTRUCTION 



LOAD - FLOATING POINT LONG 
LOAD - FLOATING POINT SHORT 

COMPARE - FLOATING POINT LONG 
COMPARE - FLOATING POINT SHORT 

ADD NORMALIZED - FLOATING POINT LONG 
ADD NORMALIZED - FLOATING POINT SHORT 

SUBTRACT NORMALIZED - FLOATING POINT LONG 
SUBTRACT NORMALIZED - FLOATING POINT SHORT 

MULTIPLY - FLOATING POINT LONG 
MULTIPLY - FLOATING POINT SHORT 

DIVIDE - FLOATING POINT LONG 
DIVIDE - FLOATING POINT SHORT 

ADD UNNORMALIZED - FLOATING POINT LONG 
ADD UNNORMALIZED - FLOATING POINT SHORT 

SUBTRACT UNNORMALIZED - FLOATING POINT LONG 
SUBTRACT UNNORMALIZED - FLOATING POINT SHORT 



B 



OP CD 


OP CD 




OP CD 




OP CD 












E3E3 




B! 3E3 


68 


69 




6A 




6B 












eh 




mm 


K78 J 


k.79 > 




V 


k7B J 




V7C X 




SOU 







CLF 007 SECOND LEVEL I-FETCH - RX FORMAT - FLOATING POINT LONG AND SHORT 



CLF 007 

DATE 27 MAY 66 MACH# 

FRAME 

P»N# 

IBM CORP# SDD PAGE 



2050 



Monro 

















IBM CONFIDENTIAL 



CLF08 01 



CLF 001 



T80 




QJ011 



CLF 001 



T81 

N/" 



0120 



0J011 



0121 



L + M 16-31 ->R 




M 16-31 -> R 


(EFF ADDRESS). 




(EFF ADDRESS)* 


LS <R1) -> L. 




US (Rl) -> U. 


ZEROS -> F REG. 




ZEROS -> F REG. 




FUNCTION 
BRANCH ON 
"V M 4—7 S 

V 



M 4-7 
IN 
HEX 



8 

9 

A 

B 

C 

0 

E 

F 

8 



SEE IDB 002 FOR LOCATION OF ROUTINES 



OP CODE 
IN 
HEX 



88 

89 

8A 

8B 

8C 

8D 

8E 

8F 



INSTRUCTION 



- LOGICAL 
LOGICAL 



SHIFT RIGHT SINGLE 
SHIFT LEFT SINGLE - 
SHIFT RIGHT SINGLE 
SHIFT LEFT SINGLE 
SHIFT RIGHT DOUBLE - LOGICAL 
SHIFT LEFT DOUBLE - LOGICAL 
SHIFT RIGHT DOUBLE 
SHIFT LEFT DOUBLE 



B 



OP 


OP 




OP 




OP 


OP 


rm 




OP 1 


OP 


CODE 


CODE 




CODE 




CODE 


CODE 


K»)»M 






CODE 


V88 J 




V8A J 


V8B J 


<J3C J 




vflE s' 


k8F J 



CLF 008 SECOND LEVEL I— FETCH - RS^SI FORMAT - BRANCHING* STATUS SWITCHING* AND SWITCHING 



CLF 008 

DATE 27 MAY 66 MACH* 

FRAME 

P*N* 

IBM CORP* SDD PAGE 



2050 



O -JtLOGO 





IBM CONFIDENTIAL 



CLF09 01 



OP 

CODE 
90 




CLF 001 



T90 

\/ 



QJOll 



CLF 001 



T91 

X/ 



0124 



0J011 



0125 



L + M 16-31 -> 
R* LS-WS1 (EFF 
ADDRESS) • 

SET S 0-3 =0010 



M 16-3l->Rf WS1 
(EFF ADDRESS ) • 

SET S 0-3 =0010 



M 4—7 


OP CODE 


INSTRUCTION 






IN 


IN 








HEX 


HEX 








0 


90 


STORE MULTIPLE 






1 


91 


TEST UNDER MASK 






2 


92 


MOVE 






3 


93 


TEST AND SET 






4 


94 


AND 






5 


95 


COMPARE LOGICAL 






6 


96 


OR 






7 


97 


EXCLUSIVE OR 






0 


1 2 


3 4 5 


6 


7 



FUNCTION 
< BRANCH ON 

N. m 4-7 s 

V S 




OP 

CODE 




OP 
CODE 



OP 

CODE 




OP 

CODE 





OP 
CODE 
97 



M 4-7 


OP CODE 


INSTRUCTION 






IN 


IN 








HEX 


HEX 








8 


98 


LOAD MULTIPLE 






9 


99 


INVALID OP 






A 


9A 


INVALID OP 






B 


9B 


INVALID OP 






C 


9C 


START I/O 






D 


9D 


TEST I/O 






E 


9E 


HALT I/O 






F 


9F 


TEST CHANNEL 






8 


9 A 


BCD 


E 


F 




SEE IDB 002 FOR LOCATION OF ROUTINES 



OP 
CODE 
58 




OP 

CODE 
99 




OP 

CODE 



OP 

CODE 
9B 





OP 

CODE 
X9D 




OP 

CODE 




OP 

CODE 
X9F 




CLF 009 SECOND LEVEL I-FETCH-RS# SI FORMAT-FIXED POINT LOGICAL AND I/O 



CLF 009 

DATE 27 MAY 66 MACH# 

FRAME 

P#N# 

IBM CORP# SDD PAGE 



2050 



voonro 








IBM CONFIDENT I AL 



CLF10 01 



CLF 001 



CLF 001 



QP010 




L (Bl) + M 16-31 <Dl)-> L,LS-WS1 (DA) 




M 16-31 <Dl)-> L»LS-WS1 (DA) 


M 8-15 (L1»L2>— > G 




M 8-15 (Ll»L2)-> G 


IAR + 2 -> SAR 




IAR + 2 -> SAR 


SET S 4-7 ■ 0001 




SET S 4-7 = 0001 


SET LB = 0 




SET LB = 0 



•s» 




MO (B * 0) 




YES (B = 0) 



R 30-31-> MB (LOW ORDER BITS OF DA) 

L ( B2) + M 16-31 (D2)-> L*M*LS-WS2 (SA) 
SET S 0-3 = 0000 



0 


0600 


INVALID OP 






1 


0604 


MOVE NUMERIC 






2 


0608 


MOVE 






3 


060C 


MOVE ZONE 






4 


0610 


AND 






5 


0614 


COMPARE LOGICAL 






6 


0618 


OR 






7 


061C 


EXCLUSIVE OR 






0 


1 2 


in 

ro 


6 


7 



DO 




D2 




D4 




D6 




R 30-31 > MB (LOW ORDER BITS OF DA) 
M 16-31 (D2)-> LtLS— WS2»M (SA) 

SET S 0-3 = 0000 




8 


0620 


INVALID OP 




9 


0624 


INVALID OP 




A 


0628 


INVALID OP 




B 


062C 


INVALID OP 




C 


0630 


TRANSLATE 




D 


0634 


TRANSLATE AND TEST 




E 


0638 


EDIT 




F 


063C 


EDIT AND MARK 




8 


9 A 


B C D E 


F 



D8 




■ 






, 

I 




D1 

V J 




D3 

L M 


Ids 1 


D7 

L J 



OP CODES SEE IDB 
002 FOR LOCATIOM 
OF ROUTINES# 



DA 




DC 




DE 





DB 



DD 





•CLF 010 SECOND LEVEL I— FETCH - SS FORMAT - LOGICAL 



CLF010 

DATE 27 MAY 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# SDD PAGE 2 



UJILHO 




IBM CONFIDENTIAL 



CLFll 01 



CLF 001 



TFO 



CLF 001 



TF1 




QS010 




013C 



QS010 



013D 



L (Bl) + M 16-31 (Dl) -> L* LS-WS9 (0P1) 




M 16-31 (Dl)-X* LS-WS9 (0P1) 


IAR + 2 -> SAR 




IAR + 2 -> SAR 


M 8-15 (LI* L2) -> M 24-31 




M 8-15 <L1»L2) -> M 24-31 


SET LB=0 




SET LB=0 




O'S -> M 16-19 (B2) 
SET WFN=000 
LS ( B2 )— > L 




L (B2) + M 16-31 <D2)-> L* LS-WSA (0P2) 
R 24-27 (LI) -> MD 
SET MB=3 

SET R SIGN STAT OFF 



M 16-31 <D2)-> L*LS— WSA (0P2) 
R 24-27 (LI) -> MD 
SET MB=3 

SET R SIGN STAT OFF 



O'S -> M 

R 28-31 (L2) -> M 28-31 
SET BYTE STATS = 0000 



L (0P2) + M (L2) — > R (LOW ORDER ADDRESS OF 0P2 FIELD) 
R 24-27 (LI) -5 M 28-31 



LS-WS9 (0P1) 



L (DPI) + M (LI) -> L* M (LOW ORDER ADDRESS OF 0P1 FIELD) 
R -> LS-WS2 (LOW ORDER ADDRESS OF 0P2 FIELD) 

R 30-3 l-> LB (BYTE POSITION OF LOW ORDER 0P2 ADDRESS) 

SET S 0-3=0000 



SYX 




SHEET 2 



•CLF Oil SECOND LEVEL I-FETCH - SS FORMAT - DECIMAL (SHEET 1 OF 2) 



CLF Oil (1 OF 2) 

DATE 3 JUN 66 MACH* 2050 

FRAME 

P«N. 

IBM CORP* SDD PAGE 2 



C 

L 

F 

1 

1 




IBM CONFIDENTIAL 



CLFll 02 



SHEET 1 



SYX 




R ->SAR (LOW ORDER ADDRESS OF 0P2 FIELD) 



M 30-3 l-> MB (LOW ORDER BYTE POSITION OF 0P1 FIELD) 
M (LI + OPI)-> H (LOW ORDER ADDRESS OF 0P1 FIELD) 
L-> LS-WS1 (LOW ORDER ADDRESS OF 0P1 FIELD) 

SET S4-7 = 0000 




0 


ocoo 


INVALID OP 






1 


0C04 


MOVE WITH OFFSET 






2 


0C08 


PACK 






3 


OCOC 


UNPACK 






4 


0C10 


INVALID OP 






5 


0C14 


INVALID OP 






6 


0C18 


INVALID OP 






7 


0C1C 


INVALID OP 






0 


1 


3 4 5 


6 


7 



8 


0C20 


ZERO AND ADD 


9 


0C24 


COMPARE 


A 


0C28 


ADD 


B 


0C2C 


SUBTRACT 


C 


0C30 


MULTIPLY 


D 


0C34 


DIVIDE 


E 


DC 3 8 


INVALID OP 


F 


0C3C 


INVALID OP 



89ABCDEF 







OP CODES SEE IDB 
002 FOR LOCATION 
OF ROUTINES. 






FE 






CONDITIONS AT END OF SECOND LEVEL I— FETCH 



WS1 * ADDRESS OF LOW ORDER POSITION OF 0P1 FIELD. 
WS2 ■ ADDRESS OF LOW ORDER POSITION OF 0P2 FIELD# 
WS9 ■ 0P1 
WSA ■ 0P2 

WSB ■ OP CODE/LI. L2/— /LI. L2 

H REG * ADDRESS OF LOW ORDER POSITION OF 0P1 FIELD. 
LB REG * LOW ORDER BYTE POSITION OF 0P2 FIELD. 

MB REG ■ LOW ORDER BYTE POSITION OF OPI FIELD. 

R SIGN STAT IS OFF. 

STATS 0-7 ARE OFF. 

MOVER FUNCTION REGISTER SET TO 000 



•CLF Oil SECOND LEVEL I-FETCH - SS FORMAT - DECIMAL (SHEET 2 OF 2) 



CLF Oil (2 OF 2) 

DATE 3 JUN 66 MACH. 2050 

FRAME 

P.N. 

IBM CORP. SDD PAGE 3 



C 

L 

F 

1 

1 






IBM CONFIDENTIAL 



CL 102 01 



BRANCH AND LINKCQA500) 



BRANCH ON COUNT (QA700) 



BRANCH ON C0NDITIQN(QA700) 



05 

N/" 



UPDATED 
IAR IN H 



H(IAR) -* R<8-31) 
R2(BRN ADR) -» L 
PSW ( 32—39 ) M(0— 7) 




NOT ZERO 



r 



INHIBIT BRANCH 
R(LINK WORD) 

LS 



I— FETCH 



45 




UPDATED IAR 
IN H 
IRANCH ADR IN U 



H(IAR) R(8-31) 

PSW ( 32—39 ) M( 0—7) 



M<0-7) RCO-7) 
R(LINK WORD) LS 



0A700 



L R* SAR 
(BRANCH ADR) 



46 

N/' 



BRANCH ADR IN L 
\T OPND 1 IN R 




-i 



06 

S/ 



07 

N / 1 



47 




BRANCH ADR IN R 



BRANCH ADR IN R 



BRANCH ADR IN L 



R(OPND 1)-1 
R1 




R(BRN ADR) L 

OPND 1 R 




R(BRN ADR) -» L 



NOT ZERO 



ZERO 



R ( OPND 1)-1 
R1 



ZERO 




ZERO 






I-FETCH 




NOT ZERO 



>■<- 



0 / MASK BIT 

< CORRESPONDING 
TO CC 




L(BRN ADR) 
Rt SAR 



BR 

V 

CLF 122 



•UNCONDITIONAL BRANCH 
IF MASK IS ALL 1»S 



CLF 102 BRANCHING 



CLF 102 

DATE 27 JUN 66 MACHt 

FRAME 

PtN# 

IBM CORPt SDD PAGE 



2050 



2 



O-J^IOCVI 





IBM CONFIDENTIAL 



CL103 01 





•CLF 103 EXECUTE 




M <8-11) — > MD <R1). 

M <12-15) — > J REG <R2). 
SET MBC — > 3* 

SET STATS <0.1.1 SYL). 



M <0— 3) — > ROAR (6-9). 



M (12-15) — > J REG <X2). 
SET MBC — > 2. 

SET STATS <0.1.1 SYL). 



SDR — > L. OP BUFFER. 

SDR <0— 15)—>M<16— 31XB2D2) 
SDR (0-3) — > MD. 

SET LBC — > 0. 

SET MBC — > 2. 

SET STATS <1.1 SYL). 




M <12-15) — > J REG <X2>. 

M (16-19) — > MD <B2). 

SET LBC — > 0. 

SET STATS <0.1.1 SYL). 



■< 



M(8— 11) — > MD (Rl). 
0'S M (16-19). 

LS <B2) — > L. 

STEP LBC — > 1. 

STEP MBC — > 3. 

SET REFETCH STAT ON. 



IM (0-3) — ROAR (6-9). I 
1 1 



>■ 



T-0 FIRST LEVEL 
I FETCH 
,< SHEET 2 OF 2) 



CLF 001 



CLF 103 EXECUTE 
DATE 27 JUN 66 MACH# 2050 

FRAME 

P#N# 

IBM CORPt SDD PAGE 2 



OJHOIO 




CL104 01 



SET STORAGE KEY 



INSERT STORAGE KEY 







A 



X 



V 



ADR SPEC 
ERROR 



Y 



I 



NO 



A 



V YES 

y 







R -> 


SAR 


F -> 


STG KEY 







INRPT CODE -> F 





i 

08 1 
Y 

i 


0A800 




09 

V Y 

NY 
1 
1 




OPND 1 -> L 
(OPND 2 ADR IN R) 




OPND 1 — > L 
(OPND 2 ADR 


IN R) 






YES 




YES 


L (24-27) -> F 






R -> SAR 
ALERT LCS 



/ 



INTERRUPT 




R + 8 -> SAR 
F -> STG KEY 



STG KEY -> M (24-2 7) 
0«S -> M (28-31) 



A 

L. 



FOR INTERLEAVED 
LARGE CAPACITY STORAGE (LCS) 



M -> R1 ADR 



I 

I 

-■« 



SET PROGRAM MASK 

i 

I 



I 04 J 



QA400 




L (2-7) -> 
PSW (34-39) 




r 



16 

V 








| 









r— 




17 1 




54 


56 


1 57 




v. y 


V Y 


V J 


V. Y 



Y 

I 



Y 



Y 



QB400 



AND/OR/EXCLUSIVE OR 



OPND 1 -> L 
OPND 2 -> M 
SET MBC -> 2 
SET MVFR 





ORDER OF BYTE PROCESSING: 



PASS NO, BYTE (PER MBC) 



1 

2 

3 

4 



2 

1 

0 

3 



\ DETERMINED BY MOVER 

/ FUNCTION REGISTER 

Q (001) = ’OR’ 

, (010) = ’ AND * 

V (Oil) ■ ’EXCLUSIVE OR’ 



I FETCH 



A 

) 




I FETCH 




IBM CONFIDENTIAL 



CLF 104 SET / INSERT STORAGE KEY* SET PROGRAM MASK* AND / OR / EXCLUSIVE OR 



CLF 104 

DATE 23 MAR 65 MACH, 2050 

FRAME 

P.N. 

IBM CORP# SDD PAGE 2 



C 

L 

1 

0 

4 





CL 105 01 



ADD LOGICAL 




OPND 1 -> R 
OPND 2 -> L 



SUBTRACT LOGICAL 




OPND 1 -> R 
OPND 2 -> L 



COMPARE LOGICAL 

(is i ris i 

V Y 



0B500 






19 



nY 



59 







l i 


OPND 1 -> R 
OPND 2 -> L 




1 r ’Y 

OPND 1 R 




OPND 2 L 



COMPARE 

QB500 



L + R “> Li R1 
SET COIMD REG 




R - L + 1 -> Li R1 
SET COIMD REG 




R - L + 1 
SET COND REG 




i 


i 


R - L + 1 -> M 
EMIT 1»S -> M (24-27) 
SET COND REG 


1 




1 




- 

i 



/ \ 
FETCH J 



/ 

L_1 




I 

V. 



I FETCH 




r 
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CL107 01 



r~' 



HALVE 



RR LOAD 



RX STORE 



RX LOAD 



r 



24 I | 34 

V Y V J 

Y Y 

I I 

I « 1 QG200 

I 

I 



QG300 






28 

A 

NY 
I 
I 



I 



J 



I 

38 | 

N Y 
NY 
I 
I 



I 60 



1 






70 

V Y 



V" 
I 
I 



OPND 1 -> R 
L (OPND 2) -> R1 



L (OPND 2) -> R (8—31 ) 
0»S IN R (0-7) 



(OPND 2 ADR IN SAR) 
R (OPND 1) -> SDR 



QG30Q 

p 



I 

I 68 

N Y 

Y 

i 



I 78 i 

V 

I 



(OPND 2 ADR IN SAR) 
SDR -> R* R1 
0 -> STAT 2 



J 



I 

1 



R1 OR R2 ADR OD 



iD— | 



/ N 

y n 

LONG / \ ILLEGAL (ODD ADR) 



ILLEGAL / 



A 

y 



y 






v 






■STAT 3 = 



1 | 



\ SHORT 




->■<- 



R (HO) SR 1 -> L (8-31) 
SPILL -> Q 
LO OPND 2 -> R 



R SR 1 -> L (8-31) 
L (SIGN* EXP* HO 
FRACTION) Y> R1 




R (OPND 1) -> R1 
6 ( INRPT CODE) -> F 




v y \ 

SHORT Y' N 

< INSTRUCTION > 





R (LO) SR 1 -> R (0-31) 
ENTER 0 

L (SIGN* EXP* HO 
FRACTION) -> R1 



R (LO FRACTION) -> R1 + 1 



, \ 

I INTERRUPT 

V J 



i 




L . - — . 




1 1 

/ \ 


LO OPND 2 -> L 




R (EFF ADR) + 4 -> SAR 








/ \ 


STEP MD -> Rl ADR + 1 




LO QPND 1 -> L 




-i 




✓ - 


1 INTERRUPT 1 






STEP MD -> Rl ADR + 1 



STAT 2=1 



L (LO OPND 2) -> R1 + 1 



/ 

I I— FETCH 

V 



J 



I 

1 YvQK666 

I Y N 

v Y' N 

STORE y N. LOAD 

r C INSTRUCTION >— 

\ Y' 

\Y 



i 1 

IL (LO OPND 1) -> SDR I 

I I 

I — , I 



I 

^ 



I 

I SDR -> L* R1 4- 1 

I 



I 

I 

•B- 



I— FETCH 






/ \ 

'CJ 



for all loads: OPERAND 2 -> OPERAND 1 ADDRESS 
FOR ALL STORES: OPERAND 1 -> OPERAND 2 ADDRESS 
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i 


22 1 




32 




23 | 


V A 


V A 


V A ^ 



N/ 



V/ 



QG100 






33 I 

A LOAD COMPLEMENT 

NA 





i 




(HO OPND 2 IN L) 




(HO OPND 2 IN L) 



LOAD POSITIVE 



20 






J 



30 



h. A 

T 



A X 

POSITIVE X 

— < OPND 2 > 

X SIGN >A 

X X 

X X 

x/ 

NEGATIVE 



A^X 
X X 

X X POSITIVE 

< OPND 2 > 

X SIGN A 

X / 

NEGATIVE 



LOAD NEGATIVE 



Y 






31 



X 



V V 



V V 



SET L SIGN PLUS 




SET L SIGN MINUS 


HO OPND 1 -> R 


QG100 


HO OPND 1 -> R 


L (LO OPND 2) -> R1 




L (LO OPND 2) -> R1 


10 -> COND REG 




01 -> COND REG 


1 

1 

i — — — — — a— - — - - — — 


1 

1 

l 



X 



ZERO TEST HO FRACTION 
LO OPND 2 -> L 



I 

A 

A X 
A X 

LONG X 

C INSTRUCTION 

V \ A^ 

X X 
NA 

I SHORT 



I I 

I ZERO TEST HO FRACTION! 

I I 

l - - - 1 



ILLEGAL L 



A 

a 



R1 OR R2 ADR ODD 



R (HO OPND 1) -> R1 
6 ( INRPT CODE) -> F 




/ \ 

I INTERRUPT I 

V J 




I FETCH 



v 



\ 

I 




r 
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STORE 




LOAD 


load address 


STORE CHARACTER 




INSERT CHARACTER 


^ j 

Y 

1 


0F100 


58 

V J 

1 


1 1 
J 

Y 0E100 
1 


l* 2 J 

Y 


0E100 




43 

V. J 







.. 














(OPND 2 ADR IN SAR) 
L (OPND 1) -> SDR 

i 




(OPND 2 ADR IN SAR) 
SDR -> L* Rl 




(OPND 2 ADR IN L) 
0»S -> L (0-7) 

L (0-31) Rl 




(OPND 1 IN R) 

L (OPND 2 ADR) -> SAR 
L (30* 31) MBC 




L (OPND 2 ADR) -> R* SAR 
QPND 1 -> L 
SET MBC 3 


l 


i 













✓ 

( 

V. 



I FETCH 



l 

J 



□PND 1 (24—31 ) -> M (?) 
TURN ON (?) BYTE STAT 



L (OPND 1) -> M 

QPND 2 ADR (30* 31) -> LBC 



STORE HALFWORD 



OK 222 



40 




M BYTE (?) -> SDR 






SDR (QPND 2) -> L 


V J 


QE555 











I 



L (OPND 2 ADR) -> R 
L (30) -> STAT 3 
1100 -> BYTE STATS 
OPND 1 -> L 





V V 









? BYTE DETERMINED 
BY OPND 2 ADR (30*31 ) r 




0A800 



M -> R* R1 

(MODIFIED OPND 1 -> Rl) 



/ ^ 

I FETCH 






J 



6 ( INRPT CODE) -> F 

i i 


i 


L (16-31) -> OPND 2 ADR 
(BYTE STATS * 1100) 




L (OPND 1) -> M 
0011 -> BYTE STATS 


1 1 









INTERRUPT 




I I FETCH I 

V J 
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LOAD LOAD AND TEST LOAD NEGATIVE LOAD COMPLEMENT LOAD POSITIVE 
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CL111 02 



OPERAND FORMATS CONVERT TO DECIMAL 



OPERAND 1 
(BIN WORD) 



INTEGER 



0 1 



31 



DECIMAL RESULT r 
-> OPND 2 ADR 



INTEGER 



"//' 



-//- 



SIGN 



59 60 63 



I I 

| 4E | QE800 




R( OPND 1) SLA -» M 
SPILL(1ST BIN DIGIT) -■> F 
L ( OPND 2 ADR) — » WS2 
3 — * LBf 0 — » MBf 6 — * MD 
6 -» Gl» 000 (CROSS) -» MVFR 
SET R SIGN STAT 



OPERAND 1 
(BINARY WORD) 
/ 



PLUS 



MINUS 



— L ( OPND 1) + 1 SLA -* 
SPILL (1ST BIN DIGIT) - 



M 



I 

I 

->* 



OfS — > RfWS3 
2ND BIN DIGIT -* W(0-3) 



NOT 

ZERO 



ZERO 



< 1ST BIN DIGIT > 



X 



X 







M( BIN DATA) SLA -* M 
SPILL ( 2ND BIN DIGIT) F 
3RD BIN DIGIT -* W(4-7) 

G1 — > 5f MD — ■> 5 



<- 




vh 




PROCESS FIRST 
NON-ZERO DIGIT 
(IF NOT LAST ( 8TH ) 




DIGIT) 



R(DEC) + L(CORRN) + STAT 1 SL1 
ENTER( BIN BIT) -» R(31) 
CORRN -» Lf LB - 1 



R 



OfS -»Hf G1 - 1 



NOT ZERO 

C 2ND BIN DIGIT 



| ZERO 

I 

I 



5 PASSES MAXIMUM 

< 



M 

SPI 
BIN D 



M( BIN DATA) SLA -* M 
SPILL BIN DIGIT(NEXT) -* F 
BIN DIGIT (NEXT + 1) -» W(A-7) 
G1 - If MD - 1 




DECIMAL OVERFLOW POSSIBLE ONLY WHEN PROCESSING 
8TH BINARY DIGIT* IF DECIMAL CONVERSION OVER- 
FLOWS R REGISTERf RESTORE R AND L REGISTERS TO 
VALUES PRESENT AFTER PROCESSING THE PRECEEDING 
( 7TH) DIGIT. 

WORKING STORAGE LOCATIONS USED FOR DECIMAL 
OVERFLOW CONDITION DEC RESULT > 1 FULLWORD): 

WSQ LO CORRN FOR DOUBLEWORD DEC RESULT 
WS3 HO CORRN FOR DOUBLEWORD DEC RESULT 

WS5 CORRN FOR 7TH CONVERTED DIGIT 

WS13 DEC CONVERSION OF 7TH CONVERTED DIGIT 



IS THIS 
THE LAST ( 8TH) 
,BIN DIGIT 



R(OfS) 
ENTERUST BIN 
CORRN -* 



SL1 R 
BIT ) R( 31 ) 
Lf LB -* 2 



BINARY DIGIT IDENTIFICATION 



■ 

H 



I* 



— 1 
1 


2 


-B— 

■ 3 


A 


■ 5 

-■= 


6 


■*— 

■ 7 


8 


LT 


RT 


LT 


RT 


* 

LT 


RT 


LT 


RT 



IS THIS 
< THE LAST(8TH) 
.BIN DIGIT ? 



YES 




<ALL BIN DIGITS 



YES 




MD(LEFT BIN DIGIT) 
(LB = 3) 



—4 F 



SHEET 2 



SPILL NEXT( RIGHT) 
(LB = 



BIN DIGIT 
3) 



— 




WS2(0PND 2 
0*S -* Hf 0 
3 


ADR) R 

C STAT 
MB 



R(0»S) SL1 — 
ENTERdST BIN BIT) 
CORRN -* Lf LB 



► R 

R(31 ) 

-♦ 2 



->■<“ 

I 




-x 



R( DEC) + L( CORRN) + STAT 1 SL1 
ENTER (BIN BIT) -» R(31)f 
CORRN -* Lf WS5f LB - 1 



NOT ZERO 



R( DEC) + L ( CORRN) + STAT 1 SL1 — » R 
0 CARRY -» STAT If SPILL (OFLO BIT) — » F 
ENTER ( BIN BIT) -» R(31) 

CORRN -A Lf LB - 1 
NEXT (LEFT) BIN DIGIT -■> MD 



PROCESS 
RT BIN 
DIGITS 
V 



< 




PROCESS 
LT BIN 
DIGITS 



R( DEC CONVERSION) WS13 
NEXT(RIGHT) BIN DIGIT -» F 
G1 - If MB + 1 



NO 




k- 



NOT 

ZERO 






BIN DATA 
ALL ZEROS 




ZERO 



DEC 0FL0(0 CARRY -» STAT 1) 
POSSIBLE ONLY WHEN PROCESSING 
8TH BINARY DIGIT 



m 



/ 


\ / 


/ 


\ X 


C 1 


Y 






/ 


1 2 




k X 


< 1 


3 



SHEET 2 



A 

SHEET 2 
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1 
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C 

L 
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2 





CL112 03 






CL113 01 




I INTERRUPT 

V 



v 



\ 

I 

J 




COMPARE 

OPERANDS 



L 




SMALLER QPND -> R (MIER) 
LARGER OPND -> M (MCND) 



J 



0 -> STAT 2 
7 ->G1 FOR MIER 
DIGIT COUNT 




\ EXIT TO FP 
''MULTIPLY 
(SHORT 
PRECISION) 



CLF 116 



MULTIPLY CYCLES 
(R*M) 



FXM 

V. A 

V 



I 

I 

I 






ENTRY FROM 
FP MULTIPLY 
(SHORT PRECISION) 



/ HO PRODUCT IN R1 
ILO PRODUCT IN F* 



V 



\ 

R I 




QB801 



_ 




R (LO PROD) SR A -> L 


»R1+1 


F (PP DIGIT) ->L (0-3) 




■J 





I 

A 




HALFWORD A \ FULLWORD 




I 



/ \ 

I I— FETCH I 

V J 
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3A 


7A 


V Y 


V J 



r 



Y Y 



I 3E I 

Y 






IDB 002 OP CODES 

i — i r 



7E I 

Y 



i 

V 

I 

- ■ ■ ■ 



I 79 

Y 

I 





3B 


7B 


V s J 


V J 



r 



Y 



Y 

i 



I 3F 
Vv 



T 









7F 


' N Y 



YY 



■OPERAND FORMATS FP ADD/SUB/COMPARE (SHORT) 



■OPND 1 ) 
■OPND 2 > 
■RESULT ) 



S 1 


EXP 1 


FRACTION 


1 




' 







0 1 



7 8 



31 



QG400 

r 



•i- 

I 

I 





OPND 1 -> R 
OPND 2 -> L 



QG401-2 



R-L (L) -> ED 
SET STATS 0-7 




WITH STATS * 'ON' » 


SO 


— 


COMPARE OR ADD 


SI 


a 


COMPARE OR SUBTRACT 


S2 


a 


NORMAL INSTRUCTION 


S3 


a 


SHORT PRECISION 


S4 


s 


NORMAL SIGN 


S5 


■ 


TRUE ADD 


S6 


s 


k < 16 


57 


ss 


k = 0 

— 



SMALLER OPND (8-31)-> R 
LARGER OPND (0-31) -> L 



A 



I 



— i 

I 

QG403-5 I 

IR (SMALLER OPND) FP SR 4 
I GUARD DIGIT -> F 

I - 



Y Y 

bi = OR < 6 Y EXPONENT \ k > 6 

DIFFERENCE > 

Y Y 

Y 






I 



0G404 I 



NO 



I 

Yv 

Y Y 

Y V 

Y FRACTIONS \ YES 
< ALIGNED >— 

Y Y 

V Y 

YY 



Y Y 


O’S -> R* F 





1 






C (INRPT CODE) -> F 
11 -> COND REG 

... — - I 




l 





— »— 

I 
I 

Yv 
Y Y 



TRUE 



X 



Y 



Jt 

y 
y 
y 

* 

COMPLEMENT 



TRUE ADDS RESULT OF ADD 
WITH LIKE SIGNS* OR 
SUBTRACT/COMPARE WITH 
UNLIKE SIGNS 

COMPLEMENT ADDS RESULT 
OF ADD WITH UNLIKE SIGNS* 
OR SUBTRACT/COMPARE WITH 
LIKE SIGNS 



A 

Y Y 
Y Y 

NO Y Y YES 

FRACTION >- 
Y OVERFLOW Y 

\Y 



A 

Y Y 

1=2 Y OPERAND 1 Y 1 > 2 
-< OPERAND 2 
YCOMPARISQN 

Y 



RESULT FP SR 4 


) 


0001 -> RESULT (8-11) 


> -> R1 


EXP 4- 1 -"> RESULT (0-7) 


) 


SET COND REG 


. .. .. . .1 




EXPONENT 
< OVERFLOW 

Y Y 

Y 

YY 
! YES 





INVERT SIGN 
COMP RESULT 




QG406 



CHECKS 6 FRACTION 
DIGITS PLUS GUARD 
DIGIT IN F REG. - 



SET COND REG 
RESULT (SIGN* EXP* 
FRACTION) -> R1 



I 



INTERRUPT 



✓ 







^ ADD^^> 


1 " r mu i 




R + L -> L (0-31) 


QG406 


R - L + 1 -> L (0-31) i 


SET SIGN 






SET SIGN 




ZERO TEST RESULT 

I 




ZERO TEST RESULT | 

L ■ ~ Ml . II 




I 

A 

Y Y 
Y Y 

YES Y NORMAL Y 
— C INSTRUCTION > 

Y Y 

Y 



NO 



> A 

Y Y 
Y Y 

NO Y Y v 

C RESULT > 

Y ZERO Y 

NY 

YES 




I NORMALIZE RESULT 
IRESULT (SIGN* EXP* 
I FRACTION) -> R1 

L „ . ■ , , 




I 

A 



EXPONENT 

UNDERFLOW 



NO 




QG409 

r 0'S -> R1 
00 -> COND REG 







0G409 

I SET SIGN PLUS | 

IRESULT (SIGN* EXP* I 
I ZEROS) -> R1 I 

100 -> COND REG I 

I 1 




PSW (39) 



I 

O'S -> Rll 

I 



\ 



RESULT 
(SIGN* EXP) 
REMAINS 
IN R1 



V 



INTERRUPT 



\ 

I 

/ 



i 



I— FETCH 



V 



INTERRUPT 



J 
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3C I 

V. J 






7C I 



aaaaiaaaaaaaaaaaaaaaiaaaaaaaaaaaaaaaaagaaaaaaaaaiaaaaaaaaaaaagaa 

a OPERAND FORMATS FP MULTIPLY (SHORT PRECISION) a 



s V 


v—/ 


r-REPEAT TWICE FOR EACH 
1 NON-ZERO MULTIPLIER DIGIT 


BOPND 1 


(MIER) 


) 


r— 






i 


1 T 




B 




> 


s 


EXP 


FRACTION 


1 


GG700 




V 


aQPND 2 


(MCND) 


) 







— 


I 



OPND 1 (MIER) -» L 
OPND 2 (MCND) -> M 



GET PROD EXP* SAVE 
(MIER 4- MCND - 64) - 
SET PROD SIGN -» WS1 
O’S -» M ( 0—7 ) 



WS1 



I 

Vv 

X X 
X X 





R (MIER) SR4 -* R 
SPILL (MIER DIGIT) -* F 
O'S -* R(O-ll) 

5 -* G1 (FOR MIER DIGIT 
COUNT) 



I 



QG701 

— a— 



MCY 

X > 
x/ 

I 

I 

1 

/ entry from \ 

I FIXED MULTIPLY 
(G1 a 7) 

I 
I 



\ 

) 






r-> 



L (PP) SRI -» L 

SPILL (PP BIT) 

-» F 



->*<- 

I 

X X 
/ X 
0 / NEXT X 1 
— MIER BIT >- 



<- 



L 4- M ( PP4-MCND ) 
SRI “4 L 

SPILL (PP BIT) 
— •> F 



I 



-1- 

I 









r”> 



NOTES 
IF FIRST 
MIER DIGIT * 
R CONTAINS 
MIER ONLY 
\ 

\ 

J 



X 4 X NO 

< MIER BITS > 

X USED X 

X / 

X / 

x/ 

I YES 
I 

>« 

JL 

/ LAST X YES 

< MIER DIGIT >— 

X X 

X X 

xx 

I NO 

I 



a 

aPRQDUCT 
BR1 + 1 



R1 



0 1 
4" 



7 8 



31 



rr 



Fsl 

1 — V 



EXP I FRACTION 



0 1 



7 8 



r 






I 



o»s 



JJ 55 56 



63 



Biaaaaaaaiaiaaaaflaaaaaaaaaaaafyaaaaaaaaaaaaaaaaaaaaaaa^aaaaaaaaa 



a 

a 



STAT USAGE 



a 0 PRODUCT FRACTION (8-63) = ZERO 
a 1 PRODUCT EXPONENT OVERFLOW 
■ 2 FLOATING POINT INSTRUCTION 
a 3 LO PRODUCT FRACTION (32-63) = ZERO 
a 4 PRODUCT SIGN 
a 

•G2 NEGATIVE IF PRODUCT EXP UNDERFLOW 

aaBaaaaaaaaaaaaaaaaaaaaaBBBBBaaaaaagBa 



QG702 




R (LO PROD) SR4 — » M 
F (PP DIGIT) -> M ( 0—3 ) 
PROD SIGN* EXP — ► R ( 0—7 ) 
L ( HO PROD) -* R ( 8—31 ) 



I 




aaaaaaaaaaaaBaaaaaaaaaaaflaaaaaa 

a WORKING STORAGE USAGE ■ 

a — - - — — a 

a b 

BWS 1 PRODUCT SIGN* EXPONENT a 
a 7 HO PSW (BACKUP REGISTER)* 
a 14 OP BUFFER ■ 

aa«B9BBBBaBBBaaaaaaBBBBBaaaflaaB 



(G1=0) 



>x 

/ X 
X X 

/ X NO 

< FRACTION >— 
X NORMAL X 

X / 

YES 



/ X 

NO / X YES 

— < FRACTION > 

X ZERO / 

X X 

v x^ 



floating 

POINT 



>x 

/ X 

> 

Instruction' 
type 



fixed 

POINT 



I R (PP* MIER) SR4 — » R 1 
ISPILL (MIER DIGIT) -» Fl 
I F (PP DIGIT ) N— » R ( 0—3 ) ! 
I STEP G1 DOWN I 

l 1 





i ^ ii ii - 1111 

FP SHIFT 


( R * M ) 


LEFT UNTIL 


fraction 


IS 


NORMAL 









OVERFLOW 



/'exit to fixedA 

^ MULTIPLY J 



X 



PRODUCT 



FXM I 

NX 

CLF 113 



RESULT EXCEEDS 
REGISTER SIZE 
C ( INRPT CODE) 
— > F 



L(PP) SR4 - 

SPILL (PP 
DIGIT) -» F 



«-<■ 



SPILL (PP BIT) 
— > F 



I 

IL + M(PP4-MCND) 
I SRI — * L 
I 

ISPILL (PP BIT) 
I— > F 



r 




PROD SIGN* EXP* 
HO FRACTION— *R1 
LO FRACTION 
-» R14-1 



t-x- 



I 

5 PASSES ON FLOATING POINT? I 



I 



INTERRUPT 






i 



I— FETCH 



7 PASSES ON FIXED POINT 
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FRAME 
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CL117 01 



r 



FI 

T T 

I QG500 I 



OPND 1 ( DVD) -» R 
OPND 2 ( DVR ) -> L 



ZERO 



I 

DVR \ NOT ZERO 
FRACTION > 






NORMALIZE DVR 
1 -» STAT 6 IF UNFL 



X. 



NOT ZERO 



y 

DVD 
FRACTION 



> 



ZERO 



0 -» STAT 0 
NORMALIZE DVD 

1 -» STAT 5 IF UNFL 






M 

y 



STAT 0 



QG501 



I 



GET QUOT EXP* SAVE 
(DVD - DVR + 64) -» WS2 
O'S M ( 0—7 ) 

SET NORMAL SIGN STAT 4 



F ( INRPT CODE) 
(DVD IN Rl) 




MAY BE OK 
IF DVR 
= OR < 

DVD 



I C( INRPT CODE) 
I (DVD IN Rl) 

L . 



STAT 21 



I 





i a 1 


y 


r - i 




1 


/ 


DVD 


a 




1 


UNFL 



1 STAT 3 

M( DVD) - L(DVR)+1 FOR 

DVR > DVD TEST 



I 

V 



INTERRUPT 



J 



QG502 



M(DVD FRACTION) SL1 -» R 
SET G1 FOR QUOT DIGIT COUNT 
(DVR FRACTION IN L) 



(DVR » OR < DVD) NO / 

i < DVR > DVD 

I 



IL(DVR) SL4 L 
I REMEMBER TO ADD ll 
I TO QUOT EXP LATER I 



I 




lai 



OPERAND FORMAT: FP DIVIDE (SHORT) 



R ( DVD) - L(DVR) +1 SL1 -» R 
COMP SPILL (QUOT BIT) -> F(3) 



I 

>■ 

I 

yX 

/ \ 

(OVERDRAW) 0 y \ 1 

OiUOT BIT(F3)^>- 



IOPND 1 ) 
lOPND 2 > 
(QUOTIENT ) 







, r 


E 


EXP 


FRACTION p 


T J 


0 


1 7 


8 J 


. 



“1 



31 



(SUCCESSFUL 

REDUCTION) 



X 



X 



xy 



STAT USAGE 

STAT 0 DVR FRACTION = ZERO 
DVD FRACTION a ZERO 

1 INVERTED SIGN (XOR OF DVR/DVD UNFL) 

2 QUOT UNFL 

3 QUOT DIGIT (LEFT/RIGHT) CONTROL 

4 NORMAL SIGN (ALGEBRAIC SIGN OF OPNDS) 

5 DVD UNFL 

6 DVR UNFL 

7 

LBC * 0 IF ORIGINAL DVR » OR < DVD 

aaaaaaafiaBaaiaiaaaaaaaaBBaaaaaaasaaaaaaaaaaa 



WORKING STORAGE USAGE 



R (DVD) + L(DVR) SL1 -» R 
COMP SPILL (QUOT BIT) -» F(3) 



R(DVD) - L (DVR ) +1 SL1 R 
COMP SPILL (QUOT BIT) -» F(3) 



I 



I 



REPEAT 2 TIMES 
FOR EACH DIGIT 




NO y^ \ YES (FULL QUOT DIGIT) 

— < 4 QUOT BITS > 



ft. A 



y 



1 



r 

yX 



X V 

(G1 = 1-5) NO / LAST X^YES (G1 a Q) 



X 



V 



< QUOT DIGIT 

X y 

y 

y 



iws 2 ORIGINAL DVR (0-31) 

NORMALIZED DVD (0-31) 

QUOT EXP* NORMALIZED DVD(8-31) 
HO PSW (BACKUP REG) 

ORIGINAL DVD (0—31 ) 

NORMALIZED DVR (8-31) 

OP BUFFER 

laaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 



7 

13 



14 

laai 



QUOT EXP -» L 



QG503 



M ( QUOT DIGITS) SL4 
F (LAST QUOT DIGIT) 



L ( 8—27 ) 
L( 28-31) 



ZERO 



(OVERDRAW) 0 y X 1 (SUCCESSFUL REDUCTION) 

< QUOT BIT(F3)^> 





\ 

\ 

/ 




F ( QUOT DIGIT) -> M 


F ( QUOT DIGIT) -> M 


STEP G1 DOWN 


x/ 


STEP G1 DOWN 


R ( DVD) + L(DVR) SL1 -* R 




R ( DVD) — L(DVR) +1 SL1 -» R 


COMP SPILL (QUOT BIT) -» F(3) 




COMP SPILL (QUOT BIT) F(3) 



5 PASSES 



I 

v 

-a<r- 



DETERMINING FINAL QUOTIENT SIGN (3 STEPS) 



V 



I 

yX 

y V 

DVD 
FRACTION 



V 



X ^NOT ZERO 






A 

y 



y 



r 



■RESULT OF 3 STEPS 
SHOWN LEFT BELOW 



L 



SET QUOT SIGN 



I 



I 

yX 

y X 

y" 

YES / DVR 

C = OR <T 

DVD 



I 



-REFERING TO ORIGINAL 
(NORMALIZED) OPERANDS 



> 



IqUOT EXP + r 
l-» QUOT EXP 

I- 




I 



I NO 



O'S 



Rl 



STEP 1 




TURN STAT 1 ON (XOR OF DVR/DVD UNFL) 
(STAT 1 = INVERTED' SIGN) 



r 



STEP 2 




DVR I 
SIGN +1 

j 



TURN STAT 4 ON (UNLIKE SIGNS) 

(STAT 4 = PREDICTED SIGN) 

ON = SIGN MINUS 
OFF a SIGN PLUS 



■i 




OK y^ FINAL 
< QUOTIENT 



QUOT (SIGN* EXP* 
FRACTION) Rl 



STEP 3 




->■<- 

I 

I 




OVFL (DUE TO EXP + 1 ADDITION) 



0 / 

PSW (38) 



INVERT STAT 4 






I— FETCH 




RESULT EXCEEDS 
REGISTER SIZE 
C( INRPT CODE) -» F 



I 

I 

I 

I 

->■ 

I 

I 



\ 



INTERRUPT I 

/ 

/ 



<- (REFERS TO FINAL QUOT EXP) 
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L 

1 

1 

8 
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2C 



6C 



fT) 



laaaaaaiflaaaaiaaaaaaaaaaaaaaiaaaaaaaaaaaaaaaa! 

OPERAND FORMAT! FP MULTIPLY (LONG PRECISION) 



J 




\ 


/ 


a 


rr 


f 


Y 


i 


j-'' 


a 

■OPND 1 (MIER) 


) 


i , JJ- 



QG700 



QG801 



lOPND 2(MCND) > 

•PRODUCT -* Rl* R1 + 1 ) 



EXP 



FRACTION 









HO OPND 2 (MCND) 




NORMALIZE 


— M 




MULTIPLIER 


LO OPND 2 (MCND) 




1 -» STAT 6 


L 




IF UNDERFLOW 



■ mm 

m m 



0 1-7 8 



63 



QG800 



HO MCND -» 




L+R-64 WS4 


R(FQR SETTING 




( COMPUTE 


R SIGN STAT) 




PRODUCT 

EXPONENT 






AND STORE) 



/ \ 

ZERO / V 

— < MULTIPLICAND > 

\ FRACTION / 

X 

/ 

NX 

NOT ZERO 






0*S -» Rlt Rl+1 



NORMALIZE 
MULTIPLICAND 
1 -» STAT 5 
IF UNDERFLOW 




HO OPND l(MIER) 

— » L 

LO OPND l(MIER) 
-> M 



1* = NORMAL MCND 
2* = NORMAL MCND SL1 
6* = (1# + 2*) SL1 



SET L SIGN STAT 
(MIER SIGN) 





a 



WORKING STORAGE USAGE 



WS 0— R1 ADR (IN 8-11) 

1— LO 6* MCND 

2— HO 6# MCND 

3— HO MIER 

A— PRODUCT EXPONENT i HO MCND 

5- 

6— 

7— HO PSW BACKUP REGISTER 

8— LO 2* MCND 

9— HO 2# MCND 
10 - 

1 1— ZERO’ S 

12— LO 1* MCND 

13— HO 1* MCND 

14— OP BUFFER 

15— LO MCND 



STAT USAGE 



STAT 0 (BEFORE MIER PRENORMALIZATION ) 
HO MIER = ZERO 
(DURING MULTIPLY ROUTINES) 
BORROW 'ON’ 
aSTAT 2 MULTIPLY WITH LEFT MIER DIGIT 

3 LO MIER = ZERO 

4 PRODUCT SIGN 

5 MCND UNDERFLOW 

6 MIER UNDERFLOW 

aaaaaaaaaaaaaaaaaflaaaaaaaaaaaaaaaaaaa 




SHEET 2 






I— FETCH 



i 

J 
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CL119 02 



SHEET 1 | 

v A J 

X- 

QG 802 f 803 I 



A 




L0 MIER DIGITS 
USED UPf NOW USE 
HO MIER DIGITS 

\ 

J 

NO / 




X YES 




OVFL / 




\ OK 





\ 3 

W 



i f— i 

w 



MIER DIGIT VALUES AND RESULTING ROUTINES 



MIER DIGIT 



BORROW OFF 



BORROW ON 



0 


m 


m mm _ . 


— 


- 


•1 




1 


m 


1*1 




- 


•2 




2 


- 


-2 




- 


•If +2 




3 


m 


•If +2 




- 


-6f— 2 




4 


■ 


•6f--2 




m 


•6f— 1 




5 


m 


h6f — 1 




- 


•6 




6 


• 


■6 




m 


*6f 4*1 




7 


■ 


■6f+l 




m 


h6f+2 




8 


m 


■6f+2 




m 


-6f— 1 f 


B 


9 


- 


-6f — 1 f 


B 


- 


-Gf B 




10 


- 


-6f B 




m 


-6f+l f 


B 


11 


— 6f+l f 


B 


— 6f+2f 


B 


12 


m 


-6f*f2f 


B 


- 


-2f— 1 f 


B 


13 


-2f-lf 


B 


— 2f B 




14 


- 


-2f B 




- 


-If B 




15 


m 


-If B 




B 
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X 



0»S -* (EXP) Lt 
Mi R 

1 Gli G2 
1 -► STAT 3 




L0 DVD - LO DVR + 1 

SL1 H 

SPILL -* 0 

SAVE CARRY 

WS11 (HO DVR) -+ L 



HO DVD - HO DVR + CARRY STAT 
SL1 — » R» Q — * R(31 ) 

COMP SPILL (QUOT BIT) -+ F<3) 
WS1S (LO DVR) -* L 




1 

1 




C 

V 


A 

S/ 

SHEET t 


m 



FP DIVIDE (LONG PRECISION) 
CLF 120 SHEET 1 OF 2 
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FRAME 

P'N# 
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FP DIVIDE (LONG PRECISION) (SHEET 1 OF 2) 
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CL122 02 





EXCEPTION 



E 



MAN TGR 



STOP TGR 



QT200 





ADR KEYS 
Rt SAR 



SET STOP TGR OFF 
MAINT CONSOLE SWITCHES 
O'S -» STG PROTECT KEY 
IAR H 



STATS 4-7 



I 



SDR DISPLAYED 
AUTOMATICALLY 



0T220 

A 



B 



ADR KEYS 
Rt SAR 




QT210. 



YES 




ADR KEYS 
Rt SAR 



MANUAL/WAIT/ADR SYNC MODE 



! 



DECODE STATS 4-7 



18 (OLD PSW ADR) 
-» R 

XTR ( 0—7 ) •» 

MDtF 





C 

I 



ADR KEYS(22t 23) -» LSFR 
ADR KEYS (24-27) -» MD 
(LS SECTOR t ADDRESS) 



I 



LOCAL STG 



Li 



ADR KEYS -» 
Rt SAR 




DATA KEYS (28-31) 


-» F 


i 

i 


i 


F -» STORAGE 


KEY 



4t 6 



6 

-a- 

I 



1 




EXTERNAL 

INRPT 



I 



DECREMENT TIMER 
1 XTR(l) IF TIMER 
SIGN CHANGES 
H(INST ADR) -* Rt SAR 



HALT 

LOOP 




0-3 



MAN TGR -i 
DATA KEYS 



STOP TGR 
CHAN 



COMPARE IAR 
WITH ADR KEYS 



1 



MAN TGR - 
ADR KEYS 



STOP TGR 
► IAR 



WS7(8— 11) -» 




MAN TGR -» STOP 


STG PROT KEY 




TGR 


H( INST ADR) -» 






Rt SAR 







EXT 

V 

SHEET 1 



MAN TGR -* STOP 
TGR 

WS7(8— 11) -» 

STG PROT KEY 
ADR KEYS -* 

Rt SAR 



BRN 
SHEET 1 




YES 



WS7(8— 11 > 

STG PROT KEY 
IAR (BRANCH ADR) 
— > Rt SAR 





ISSUE SYNC PULSE 



SYNC ADR 

< COMPARE > 




SYNC PULSE SETS 
MAN TGR "ON" 
(HARDWARE RESULT) 



I 



WS7(8— 11) -* STG PROT KEY 
H(INST ADR) -» Rt SAR 



I 



M/W 




SHEET 1 



CLF 122 INTERRUPTIONS/EXCEPTIONS (SHEET 2 OF 2) 



E 

41 - 

I 



ADR KEYS (22-31) -* SAR 
(22t 23 « BUMP SECTOR) 
(24-31 = ADDRESS 



I 



SDR DISPLAYED 
AUTOMATICALLY 



ADR 


KEYS ( 22 t 23) -* LSFR 






ADR KEYS (22-31) -* SAR 


ADR 


KEYS (24-27) -» MD 






(22t 23 « BUMP SECTOR) 


(LS 


SECTOR t ADDRESS) 






(24-31 = ADDRESS) 



l 

DATA KEYS 




I 



DATA KEYS -» SAR 



J 



DECODING STATS 4-7 (HEX VALUES) 

0 NONE OF FOLLOWING CONDITIONS (HALT) 

1 INSTRUCTION STEP (NOT WAIT) 

2 SET IC 

3 REPEAT INSTRUCTION 

4 COMPARE IAR WITH ADDRESS KEYS 
(NOT MANUAL* NOT WAIT) 

5 

6 ENTER CHANNEL 

7 

8 DISPLAY MAIN STORAGE 

9 STORE " " 

A DISPLAY PROTECTION KEY 
B STORE '« " 

C DISPLAY LOCAL STORAGE 
D STORE " " 

E DISPLAY BUMP STORAGE 
F STORE " ' * 



EXCEPTION TYPES 

1 (MANUAL OR WAIT 
2 (EXTERNAL (ENABLED* NOT STOP) 
3(1/0 INRPT (ENABLED* NOT STOP) 
4( TIMER UPDATE (NOT MANUAL) 
5*ADR SYNC MODE 



PSW ( 14) * WAIT STATE 

MANUAL LIGHT "ON" * STOPPED STATE 



SEE FIGURE 19 (CLF 125) FOR MANUAL t 
STOPt AND EXCEPTION LOGIC 
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HARDWARE TRAPS 



) 



HARDWARE < 
KK711 \ 



V 

f 

microprogram c 

GIT300 \ 




^STORAGE 


PROTECt| 






FORCE HEX ADR 
142 -» ROAR 
(ROAR BITS 3t 
5» A) 






4CTNRPT 

F 


CODE) 



^INVALID 


ADDRESS^ 






FORCE HEX ADR 
ICO ROAR 

(ROAR BITS 3t 
4t 5) 






5( TNRPT 
-> F 


CODE) 



^SPECIFICATION^ 






FORCE HEX ADR 
1C2 ROAR 

(ROAR BITS 3» 
4' 5f A) 






6( INRPT 
— » F 


CODE) 



^DECIMAL DATA J 






FORCE HEX ADR 
140 ROAR 

(ROAR BITS 3t5) 






7 (INRPT 
F 


CODE) 





ROS 
TRAP 




CLF 122 



•CLF 124 HARDWARE TRAPS FOR PROGRAM INTERRUPTIONS 

r 
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0.125 Ol 



SYNC PULSE (ADR KEYS • IAR IN ADR SYNC MODE) QT200 



ADDRESS 

COMPARE 

SWITCH 



\ 

\ 

RATE 

SWITCH 




STOP 



SYNC 



NORMAL 



■J 




ADR SYNC MODE 



j MANUAL TGR ON 
j PS W 14 (WAIT) 
j EXTERNAL INRPT 
j CHANNEL INRPT 
j TIMER UPDATE 



EXCEPTION 



OR 



ADR SYNC 
MODE* START 



START KEY 



PROCESS 



\ 



SINGLE CYCLE 



INST STEP 




PROCESS* 

START 




RESET 

MANUAL TGR 




TPL (RESULT OF LOAD KEY) 



+ ON EXCEPTION (KS721) 



SET 

MANUAL 
TGR ON 



j STOP KEY 
j PWR ON RESET 
j SYSTEM RESET 



OR 



MANUAL 







TGR 




A 




PH 


+ ON MANUAL (KS721) 






r— 


(INHIBITS TIMER TICK) 



0^ 

p CLOCK REG CPU 

I ■ 



SEE MOD 50 APPENDIX* 
FORM 222-2831* FOR 
DETAILS 




"MTOS" MICRO ORDER 



SET STOP 



OR 


T( 

MAN* TGR -+ STOP TGR 


3R ON 




A 


A 

























STOP TGR 




+ ON STOP (KS721 ) 

(INHIBITS EXTERNAL AND CHANNEL INTERRUPT) 



MANUAL TGR ON 



NOT "MCSS" MICRO ORDER 



QLF 125 MANUAL/STOP/EXCEPTION LOGIC 
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P*N* 

IBM CORP* SDD PAGE 



2050 



2 



uiivji-r-o 




IBM CONFIDENTIAL 



QU100 



IPL 



/SYSTEM RESET OR' 
POWER ON RESET 
; QRCE ADR - 242/ 

■ohmmhhmn/ 

I 
I 



S3 ■ 1, MD ■ 3 



CLEAR Lf Ho AND ERROR REGS 
SET STATS 0-3 TO 0* MD TO 3 



I 

-><- 



PSW RESTART 



S3 = 1* MD = 0 



CLEAR M and J REGS 
SET LB AND MB TO 0 
ALL ONES TO R REG 
07000000 TO M REG 



LS AND BUMP ADDRESSING 



J, 

I 



LS ADR = 00 JJJJ (SECTOR 00) 
LS TO L REG AND REGEN 

BUMP ADR * —RROO— RRRRRR 
INITIATE BUMP STOR CYCLE 

CLEAR IARo SET LB TO 3 



LS 

EMIT FIELD (2-3) TO LSFR 
R REG (24-27) TO J REG 
BUMP 

R REG TO MOVER U 
W (0-1) TO SAR (14-15) 

EMIT FIELD (2-3) TO SAR (16-17) 
W (2-7) TO SAR (24-29) 



->a<- 



CORRECT LS PARITY- 



STORE 07000000 IN BUMP 



L REG TO ADDER TO L REG TO LS 



M REG TO SDR TO BUMP STORAGE 



I 




LB » 3 1 MB a 0 



CHECK \ 
LB AND MB 



LB a 3t MB = 3 




LB a Of MB a 3 



LS ADR a io JJJJ (SECTOR 10) 
LS TO L REG AND REGEN 




LS ADR a 01 JJJJ (SECTOR 01) 
LS TO L REG AND REGEN 




LS ADR a ii JJJJ (SECTOR 11) 
LS TO L REG AND REGEN 


BUMP ADR a — RR10— ■ RRRRRR 
INITIATE BUMP STOR CYCLE 




BUMP ADR a —RROl— RRRRRR 
INITIATE BUMP STOR CYCLE 




BUMP ADR a — RRll — RRRRRR 
INITIATE BUMP STOR CYCLE 


SET MB TO 3 




DECREMENT R REG BY ONE 
SET MB TO 0 




SET LB TO 0 


1 


l 



STORE 00000000 
IN BUMP — > 



ZEROS TO SDR TO BUMP STORAGE 



RESET LB AND MB 

EMIT FIELD TO SCAN STATS 

WS7 (PSW BACKUP) TO L REG 



S3 al 9 MD a 3 (IPL) 



CORRECT LS PARITY-—* L REG TO ADDER TO L REG TO LS 

aHaBHMaMMaaMHaMaMBaHaaHHnHMBaMBaNM 

SET A BIT ON IF W a o 
GATE 0111 TO MVR TO J REG 
(SET UP WS7 IF FINISHED) 



STORE 00000000 
IN BUMP 



NO (NOT FINISHED) 



I ZEROS TO SDR TO BUMP STORAGE 

DECREMENTED R REG TO MVR 
W (0-3) TO J REG 




YES (FINISHED) 




If MD a o (PSW RESTART) 



S3 a Of MD a 3 
(SYSTEM RESET) 



H 



RESTORE PSW 0-7f 12-15 



IPL READ 
QK 800 



HALT LOOP 
QT 200 



LOAD PSW 
QJ 200 



LOOP 256 X 



CLF 126 SYSTEM RESET 
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/Load pb switch > 

FORCE ADR - 240 



auioo 



CLEAR ERROR REG 

SET S3 * It MD ■ 3 

IPL SW»S TO L REG TO WS1 

clear h reg 



SYSTEM RESET ROUTINE 
(CLF 126) EXIT TO QK800 



aK800 



SET UP CCW2 

WS1 TO L REG (U A,CH A) 
ZERO R REG 
RESET S3* SET S7 
ISSUE START I/O 



R » CA (0 0) 

M ■ OP (READ) 

DA » ZERO 
L ■ U A AND CH A 




6 



LOOP ON 988 
(WAIT FOR CHAN RESf 



YES (CHAN END) 



CLF 127 INITIAL PROGRAM LOAD 



CL127 01 




LOOP ON 990 
(CHAN STATUS BAD) 



LOOP ON 919 
(UNIT STATUS BAD) 



START 

PROGRAM 

EXECUTION 
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CL201 01 



RIGHT SHIFT FOR OP CODE 88. 
LEFT SHIFT FOR OP CODE 89. 



OP I 
CODE 

Vv88 J < 
X/ 

I 

QJ080 



THE MICROPROGRAM LOGIC IS THE 
SAME FOR BOTH 88 AND 89 OP CODES 
EXCEPT FOR THE DIRECTION OF SHIFT. 



r op i 

I CODE I 
•> V89 J 

V' 



QJ090 



OPERAND 2 
NUMBER OF 



^ SHIFT RIGHT \ 
SINGLE LOGICAL I 

V j 



" SHIFT LEFT ^ \ 
SINGLE LOGICAL I 

V J 




(Bl+Dl) CONTAINS THE 
POSITIONS TO BE SHIFTED 






SET THE TWO LOW-ORDER OPERAND 2 BITS IN THE LB CTR. 
SET THE NEXT FOUR OPERAND 2 BITS IN THE G2 CTR. 

THE GENERAL REGISTER WORD SPECIFIED BY THE Rl ADDR 
IS STORED IN THE R-REGISTER. 

. — — — — — — — nu l l in » ill —S i 




I 



STORE THE SHIFTED RESULT BACK INTO THE 
GENERAL REGISTER SPECIFIED BY THE Rl ADDRESS 
OF THE INSTRUCTION WORD. THE Rl ADDRESS HAS 
BEEN STORED IN THE MD COUNTER. 




\ 

I— FETCH i 
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OPERAND 2 (Bl+Dl) CONTAINS THE 
NUMBER OF POSITIONS TO BE SHIFTED* 




/ SHIFT RIGHT \ 
i SINGLE I 
ALGEBRAIC / 



QJ100 



SET THE TWO LOW-ORDER OPERAND 2 BITS IN THE LB CTR* 
SET THE NEXT FOUR OPERAND 2 BITS IN THE G2 COUNTER# 
THE GENERAL REGISTER WORD SPECIFIED BY THE Rl ADDR 
IS STORED IN THE L-^REGISTER* 
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OPERAND— 2 (Bl+Dl) IS STORED 
IN THE R REGISTER* 

THE R1 ADDRESS IS IN MD CTR* 



C 

V 



QJ110 



OP 1 
CODE | 
8B V 

Y 

I 




SET THE LOW ORDER OPERAND-2 BITS IN THE LB CTR* 
SET THE NEXT FOUR OPERAND-2 BITS IN THE G2 CTR* 
SET THE GENERAL REGISTER WORD SPECIFIED BY THE 
R1 ADDRESS INTO THE L REGISTER* 

SET THE F REGISTER TO ZERO* 





■<- 



I 

A 



A 

^y 

L REG DATA IS PLUS (0) /L REGISTER A (1) L REG DATA IS MINUS 

<SIGN (BIT ZERO)> 

y 
y 



A 



X A 

/ BOTH A 

BOTH / L-SIGN ON A NOT BOTH 

—< AND L (1-31) > 

AjEQUAL ZERQ^y 



V 

->■ 




OFF 




1 



THE L-SIGN STAT IS SET ON, 
COMPLEMENT THE L REGISTER DATA. 
(THE INTEGER IS NOW IN TRUE 
BINARY FORM* AND OVERFLOW 
SENSING IS SIMPLIFIED*) 






< L-SIGN STAT > 

\ / 



OFF 






DECOMPLEMENT THE L REGISTER DATA* 
(RESTORE THE INTEGER AND SIGN 
TO COMPLEMENT FORM) 



A 

< L-SIGN STAT > 

a y 






DECOMPLEMENT THE L REGISTER DATA. 
(RESTORE THE INTEGER TO 
COMPLEMENT FORM) 



NO 



y^ v a 

y DOES THE A YES (1-BIT SHIFTING IS NOT NECESSARY) 

< LB COUNTER > — j 

AEQUAL ZERO y I 

y i 



[SET L POS 0 
| TO A ZERO* 



III 


\ 

/ 




GATE THE L REGISTER TO THE ADDER* 
SHIFT LEFT ONE AND SPILL TO F REG* 
SET THE SHIFTED RESULT IN THE L REG* 
DECREMENT THE LB COUNTER* 


AY 


ZERO BYTE 3 OF THE M REGISTER* 




1 



I 

->■ 

I 

I 



STORE THE RESULT IN THE GENERAL 
REGISTER WORD SPECIFIED BY THE Rl 
ADDRESS IN THE MD COUNTER* 

SET THE CONDITION CODE TO THE 

result: 

00 RESULT IS ZERO 

01 RESULT IS MINUS 
10 RESULT IS PLUS 



I SET L POS 0 
I TO A ONE* 

t 



I 

->• 

I 

I 

I 



I 

v 



I OR THE F REGISTER WITH BITS 
128-31 OF THE M- REGISTER AND SET 
I THE RESULT BACK IN M (28-31)* 

i - ■ 



ANY BITS THAT OVERFLOW FROM THE 
WORD IN THE L REGISTER DUE TO LEFT 
SHIFTING* SPILL TO THE F REGISTER* 
THESE BITS ARE SAVED IN M( 28-31) 

BY OR'ING WITH THE F REGISTER* 
AFTER THE SHIFTING IS COMPLETED* 
ANY BITS IN M(28— 31) IDENTIFY AN 
OVERFLOW CONDITION* 



NO 



DOES THE 
G2 COUNTER 
.EQUAL ZERO y 



YES (4-BIT SHIFTING NOT NECESSARY) 



YES 



GATE THE L REGISTER TO THE ADDER. 
SHIFT LEFT FOUR* SPILL TO F REG* 

SET THE SHIFTED RESULT IN THE L REG, 
DECREMENT THE G2 COUNTER* 




STORE THE RESULT IN THE GENERAL 
REGISTER WORD SPECIFIED BY THE Rl 
ADDRESS IN THE MD COUNTER* 

SET THE CONDITION CODE TO: 

11 OVERFLOW 









OFF 



YES yDOES L REG A NO 

^ POSITION 0 

.EQUAL ZERO y 




/ 



I— FETCH 
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INTERRUPT CODE 8 TO THE F REG* 
(FIXED-POINT OVERFLOW) 
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/ SHIFT RIGHT \ 
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OP 
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f SHIFT LEFT ^ \ 

[double logical I 

V J 
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IBM CONFIDENTIAL 



FRAME 

P.l\l. 

IBM CORP. SDD PAGE 



2 



ooowro 





CL209 01 




THE ADDRESS OF 
THE SYSTEM MASK 
BYTE IS IN THE 
R-REGISTER 



FETCH THE BYTE 
FROM MAIN 
STORAGE PER THE 
R-REG AND SET 
IT INTO THE 
L-REG. 

L— — - — J 



OFF / V ON 

C PSW BIT 15 > 



I 

I 



FETCH WS 7 TO 
THE R-REG 
(PSW BACKUP) 



I 

I 



L (PER LB CTR) TO U(0-7) 
U ( 0—7 ) TO W ( 0—7 ) 

W ( 0—7 ) TO M ( 0—7 ) 

W ( 0—7 ) TO PSW ( 0—7) 



(PROBLEM 

STATE) 



INTERRUPT CODE 
2 TO THE F-REG 

(PRIVILEGED 

OPERATION) 



I 

I 



PROG 
V y 
V' 



CLF 122 



(PROBLEM 

STATE) 



INTERRUPT 
CODE 2 TO THE 

F-REGISTER 

(PRIVILEGED 

OPERATION) 



PROG 
CLF 122 



THE ADDRESS OF 
THE NEW PSW 
IS IN THE 
R-REGISTER 




I 

YES / R( 29-31) V NO 
— < ALL ZERO? > — 



(NOT DOUBLEWORD 
BOUNDARY) 



HIGH ORDER PSW WORD TO THE 
L-REGISTER FROM MAIN STORAGE* 

SET BITS 12-15 OF PSW WORD TO 
BITS 12-15 OF THE PSW (AMWP)* 
STORE HIGH ORDER PSW WORD IN WS7 
FROM THE L-REGISTER (PSW BACK UP) 

, . . I 

I 

I 



QT300 



INTERRUPT 
CODE 6 TO THE 

F-REGISTER 

(ADDRESS 

SPECIFICATION) 



r 



^PROG^ 
CLF 122 



L ( 0—7 ) TO PSW ( 0—7 ) 
VIA THE MOVER 
(SYSTEM MASK) 






LOW ORDER PSW WORD I 

TO THE L-REGISTER I 

l—.— ■ - , l 



I 

I 



I 

I 



M TO Y TO T* 

T ( 0—7 ) TO 
R ( 0—7 ) * 

STORE R-REG 
BACK IN WS 7* 



1 






/— 

/ 

1 

v_ 


I-FETCH J 



REGISTER 


L-REG 


R-REG 


L-REG 




L-REG 


L-REG 


PATH 


MOVER 


ADDER 


ADDER 




MOVER 


R-REG 


MICRO ORDER 
PSW 


WP 1 

SYSTEM 

MASK 

0 7 


TSPM 

SP 

KEY 

8 11 


TWS 

AMWP 
12 15 




WP 2 

CC PROG 
MASK 

34 39 


TIAR 

INSTRUCTION 
ADDRESS REGISTER 

40 63 



WS7 TO THE 
R-REGISTER* 

R ( 8—1 1 ) TO 
PSW (8-11) 

(STOR PROT KEY) 



I 

I 



L ( 2—7 ) TO 
PSW (34-39) 

VIA THE MOVER 
(COND CODE AND 
PROGRAM MASK) 



QA700 



L(8— 31) TO R 
AND SAR (BRANCH 
ADDRESS) 

(STARTS THE 
BRANCH I— FETCH) 



I 

I 



I BRN I 
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OFF 



OFF 





r c PSW > 








\ BIT 15 / 




- — | 


QY110 






V 




INTERRUPT CODE 2 TO THE F-REGISTER 
(PRIVILEGED OPERATION) 



Bl-Dl SUM FROM R (8-31) TO M (8-31) 
IMMED FIELD FROM M (8-15) TO M (0-7) 



M (1-31) TO SDR (0-30) 



PROG 

N' 

CLF 122 
SHEET 2 



THE BIT STRUCTURE OF SDR (19-30) 

I HAS SELECTED ONE OF THE AVAILABLE 
KERNELS IDENTIFIED BY THE A ENTRY 
I POINTS. 



I 



B 




I THE KERNEL HAS COMPLETE CONTROL AND| 
LINKS BACK TO THE "DIAGNOSE" WHEN 
I IT HAS COMPLETED IT'S FUNCTION. OR 
RETURNS TO I-FETCH. 



IAR + 4 TO IAR AND SAR (TO FETCH 
THE NEXT WORD FROM MAIN STORAGE. 

MUST BE ON A WORD BOUNDARY). 

SET THE SCAN CONTROL TRIGGERS TO 00. 



SDR (0-2) TO THE CLOCK ADVANCE COUNTERS 
SDR 5 TO THE PROGRESSIVE SCAN STAT (PSS) 
SDR 6 TO THE SUPERVISORY STAT (SS) 

SDR 7 TO THE I/O MODE STAT 
SDR (19-30) TO ROAR 



I 

I 

.WITH SDR (19-30) SCANNED 
I INTO ROAR. THE CPU BEGINS I 
.EXECUTING THE SELECTED 
I SEQUENCE OF MICRO- I 

MICROINSTRUCTIONS 

L__ _ 




THE BIT STRUCTURE OF SDR (19-30) HAS SELECTED A ROS CONTROL WORD AS A 
STARTING POINT FOR THE DESIRED CPU FUNCTION 



HARDWARE SUPERVISOR CONTROL DURING THE RUNNING 
OF THE SELECTED SEQUENCE OF ONE TO EIGHT 
MICROINSTRUCTIONS. 



* 

I 

■<* 



/MAKE THIS TEST 
ONCE EACH 
CPU CYCLE 




(02C0) 

FIXED ADDRESS 
TO ROAR 



decrement the 
CLOCK ADVANCE 
COUNTER MINUS 
ONE 



I 



QY410 vV 

y v 



OFF 




ON 



BUT HARDWARE CIRCUITS ARE 
MAINTAINING A SUPERVISOR 
CONTROL OVER THE RUNNING OF 
THE SELECTED MICRO-PROGRAM. 



THE CLOCK ADVANCE COUNTER 
IS DECREMENTED ONCE FOR EACH 
CPU CYCLE. WHEN THE COUNTER 
REACHES ZERO* A FIXED ADDRESS 
LINKS TO THE MICROINSTRUCTION 
WHERE THE PSS IS EXAMINED. 



THE FIXED ADDRESS INHIBITS 
THE NORMAL ROS ADDRESS 
SEQUENCE* AND COMPLETE CPU 
CONTROL IS RESTORED TO THE 
* ♦DIAGNOSE* * FUNCTION. 



A 

SHEET 2 



C 



B 

v 

THIS SAME 
SHEET 
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FRAME 
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CL213 02 



SHEET 1 



SHEET 1 SHEET 1 



SHEET 1 




EXECUTE 

FLT’S 



NOTE: LOGOUT ROUTINES MAY BE ENTERED CLOSER TO 
THE END TO CAUSE A PARTIAL LOGOUT# 
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BRANCH ADDRESS TO THE M-REG 
(Bl-Dl SUM) 

INDEX VALUE TO THE L-REG 
<R1 FIELD) 

INCREMENT VALUE TO THE R-REG 
(R3 FIELD) 



INDEX + INCREMENT TO L— REG 
(NEWINDEX VALUE) 

STORE THE NEW INDEX VALUE IN THE 
R1 LOCATION (M/D COUNTER) 

FETCH THE COMPARAND TO THE R-REG 
(OR 1-BIT WITH J-REG ADDRESS) 
COMPARE THE NEW INDEX VALUE WITH 
THE COMPARAND 





THE NEW INDEX VALUE IS COMPLEMENT 
ADDED WITH THE COMPARAND AND THE 
RESULT IS TESTED. 





R-REG (TRUE) XXXXXXXX 

L-REG (COMP) XXXXXXXX 

HOT ONE 1 



(RESULT) 



XXXXXXXX 



I 



a i i 


/ 

\ 




STAT 3 ON* OVERFLOW* AND SIGN PLUS. 


/BRANCH \ 


[STAT 3 ON* OVERFLOW* AND SIGN MINUS. 


OR 


ym STAT 3* \ 


OR 


STAT 3 ON* NO OVERFLOW* AND SIGN MINUS. 


— < OVERFLOW* > — 


STAT 3 ON* NO OVERFLOW* AND SIGN PLUS. 


OR 


\ AND SIGN / 


OR 


STAT 3 OFF* OVERFLOW* AND SIGN MINUS. 


\ 

/ 


STAT 3 OFF* OVERFLOW* AND SIGN PLUS. 


OR 


/ 

\ 


OR 


STAT 3 OFF* NO OVERFLOW* AND SIGN PLUS. 




STAT 3 OFF* NO OVERFLOW* AND SIGN MINUS. 



I 

I 



BRANCH ADDRESS TO THE R-REGISTER. 
(SAVED IN THE M-REGISTER) 



BRN 




CLF 122 




I— FETCH 




DEFINITIONS 



STAT 32 IDENTIFIES THE INSTRUCTION BEING EXECUTED. BRANCH CONDITIONS FOR BXH (STAT 3 ON) 
ARE I-PETCH CONDITIONS FOR BXLE (STAT 3 OFF). 

OFLO: OVERFLOW IS IDENTIFIED BY AN EXCLOR OF THE CARRIES FROM POSITIONS ONE AND ZERO 
DURING THE COMPARE. IT OCCURS WHEN THE DIFFERENCE IS GREATER THAN THE CAPACITY 
OF A 31 BIT BINARY INTEGER# 

SIGN: THE HIGH ORDER BIT IS EXAMINED TO DETERMINE THE SIGN OF THE RESULT. 

A O-BIT IS A PLUS SIGN AND A 1-BIT IS A MINUS SIGN. 



EXAMPLE 



DURING THE COMPARE* THE NEW INDEX VALUE IS COMPLEMENTED. IF THE NEW INDEX VALUE IS HIGH* 
THE RESULT WILL HAVE A MINUS SIGN IF THERE IS NO OVERFLOW. AN OVERFLOW REVERSES THE EFFECT 
OF THE SIGN ANALYSIS ON THE BRANCH/I— FETCH CONDITIONS. 



r 
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CLF 214 BRANCH ON INDEX HIGH / BRANCH ON INDEX LOW OR EQUAL. 



IBM CORP. SDD 










CL220 01 



[ 



OP 

CODE I 
^92 J 



i 



GIK222 



T 



OP 

CODE I 
W93 y 

T 



QK222 




OP 

CODE 

V96 V 



i 



OP 

CODE I 
V97 > 



QK222 




/ 



QK222 



T 



SET THE MB CTR 
TO THE TWO 
LO-ORDER BITS 
OF THE R-REG 


/ R ( 8—31 ) IS THE BYTE ADDRESS OF \ 
/ THE CHARACTER IN MAIN STORAGE \ 
1 1. IT’S BIT ZERO WILL BE USED TO SET 1 
\ THE CR TO 00 OR 01. / 
\2. IT WILL BE CHANGED TO ALL 1-BITS J 


SET THE MOVER 
FUNCTION 
REGISTER 
TO AND 




SET THE MOVER 
FUNCTION 
REGISTER 
TO OR 




SET THE MOVER 
FUNCTION 
REGISTER 
TO EXCLOR 




1 














SUM IS IN 
THE R-REG 




M ( 8— 


15) 


TO V 


V TO 


W 




W TO 


M 


(PER MB 


CTR) 






SET 


THE 


BYTE 


STAT 

L..— — 


PER MB CTR 1 



.THE IMMEDIATE OPERAND 
IS THE SECOND BYTE OF 
THE INSTRUCTION 



R ( 8—29 ) TO SAR. (TO 
START MAIN STORAGE) 

R< 30-31) TO THE MB CTR. 
RESET THE BYTE STATS. 



-j 



I 



STORE THE BYTE 
AT M (PER MB 
CTR) AT THE 
B2-D2 LOCATION 



SET THE BYTE 
STAT TO THE 
MB CTR. 



THE B2-D2 SUM / 
IS IN THE R-REG<^ 



SET THE MB CTR TO THE TWO LO-ORDER 
BITS OF THE R-REGISTER 

(FETCH THE B2-D2 WORD TO THE 
I L— REGISTER 



THE IMMEDIATE OPERAND 
IS THE SECOND BYTE OF- 
THE INSTRUCTION 



-> 



I— FETCH 



|the tscr micro-order tests the zero bit position of I 

THE CHARACTER SELECTED BY THE BYTE STAT i AT THE SENSE 
AMPLIFIERS. AND SETS THE COND REG TO 00 OR 01. 

r iF BYTE STATS ARE TEST THIS BIT* 1 

| 1 

0001 BIT 0 

I 0010*. .......... BIT 8 I 

0100.... ...... ..BIT 16 

I 1000...... ...... BIT 24 I 

L j 



M(8— 15) TO U 
L (PER MB CTR) TO V 
COMBINE PER MOVER FUNCTION REG 
RESULT TO M(PER MB CTR) 

SET BYTE STATS PER MB CTR 




I 



STORE THE BYTE AT M(PER MB CTR) 
AT THE B2-D2 LOCATION. 

TEST THE BYTE AT M(PER MB CTR) 
FOR ALL ZERO BITS. 



I 
I 



* ZERO 



■ 

I 



r 



STORE ALL 
1-BITS AT THE 
BYTE SELECTED 
BY THE BYTE 
STATS. 





i 


1 


j 


f 

1 


V 

\ 

I— FETCH 1 


V_ 




J 



/ 

v. 



I— FETCH 



J 
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OP 

CODE I 
V91 > 



QK555 



T 



THE B2-D2 SUM 
IS IN THE R— RE 




SET THE MB CTR 
TO THE TWO 
LO-ORDER BITS 
OF THE R-REG 







MOVE M ( 8—15 ) TO 
M/D AND F-REG 

i i 






FETCH THE B2-D2 
WORD TO THE 
M— REG 






.THE IMMEDIATE OPERAND 
IS THE SECOND BYTE OF 
THE INSTRUCTION 



AT THE MOVERS 

AND THE IMMEDIATE OPERAND 
BYTE (M/D AND F-REG) WITH THE 
FIRST OPERAND BYTE IN THE 
M-REG (PER MB CTR) 

SET THE AND' ED RESULT IN THE 
M-REG (PER THE MB CTR) 



AT THE MOVERS 

EXCLOR THE IMMEDIATE OPERAND 
BYTE (M/D AND R-REG) WITH THE 
FIRST OPERAND BYTE IN THE 
M-REG (PER THE MB CTR) 



I 




m 

I 



THE CONDITION CODE INDICATES 
THE STATE OF THE MASK SELECTED 
BITS OF THE MAIN STORAGE BYTE. 



I 

I 

I 




THE B2-D2 SUM 
IS IN THE R-RE 










SET THE MB CTR 
TO THE TWO 
LO-ORDER BITS 
OF THE R-REG 



MOVE M ( 8—15 ) TO M/D-F REGISTER 
SET THE M-REGISTER TO ALL ONES 
SET THE ONES COMPLEMENT OF M/D-F 
TO M (PER THE MB CTR) 

SET THE BYTE STAT PER THE MB CTR 
FETCH THE EFFECTIVE ADDRESS WORD 
TO THE L-REGISTER 



< THE IMMEDIATE OPERAND 

IS THE SECOND BYTE OF 
THE INSTRUCTION 



M-REG TO ADDER (COMPL OF 
IMMEDIATE OPERAND) 
L-REG TO ADDER (MAIN 
STORAGE BYTE INCLUDED) 
INSERT HOT ONE 



I 

I 



THE TWO BYTES 
ARE COMBINED AND 
THE SUM IS TESTED 
PER THE BYTE STAT 
TO SET THE 
CONDITION CODE 



I 

I 




SET THE CR TO 00 
(EQUAL) 




SET THE CR TO 01 
(LOW) 




SET THE CR TO 10 
(HIGH) 



I 

I 

J 



THE CONDITION CODE INDICATES HOW 
THE MAIN STORAGE BYTE COMPARED 
WITH THE IMMEDIATE OPERAND BYTE. 



I 

I 

I 







I— FETCH 



\ 

I 

/ 

/ 
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QK666 




- 

STAT 3 ON 



I 

L 



QK666 




STAT 3 OFF 



I 



TEST THE TWO LO-ORDER BITS OF THE 
B2-D2 SUM IN THE R-REGISTER. 



u 



=0 




*0 



(STM) ON 



r 



/ \ 

S3 V > 



V/ 



OFF (LM) 



INTERRUPT CODE 6 TO THE 

F— REGISTER 
(SPECIFICATION). 



FETCH THE GENERAL REGISTER 

WORD USING THE M/D ADDRESS. 




V" 


FETCH THE WORD FROM MAIN 
STORAGE USING THE 

R-REGISTER ADDRESS. 
















STORE THE WORD IN MAIN 




LOAD THE WORD INTO THE 


1 STORAGE USING 


THE 




GENERAL REGISTER USING 


R-REGISTER ADDRESS. 




THE M/D ADDRESS. 



I 



PROG 
CLF 122 



L 



I 



COMPARE THE CURRENT GEN REG 
ADDRESS IN M/D WITH THE 
ENDING GEN REG ADDRESS IN 
M ( 8—1 1 ) . (EXCLOR BOTH BYTES 
AT THE MOVER. IF W(0-3) 

EQUALS ZEROi THEY ARE EQUAL). 



NO 




YES 



INCREMENT THE M/D CTR PLUS 
ONE (GENERAL REGISTER 
ADDRESS). 



INCREMENT THE R-REG ADDRESS 
PLUS FOUR (MAIN STORAGE 
ADDRESS). 



/ 

v. 



I— FETCH 



r 
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L-REG 

R-REG 

M-REG 



[ 



OP 

CODE 

V9C > 

QK700 T 

V \ 

/ K ON (PROBLEM STATE) 

< PSW BIT 15 > 



¥ 



OFF 




I I 

<■ - — — — ■ - - ■ - I 

I 

I 



STATS 4— OFF* 

6— ON IDENTIFY 
START I/O AFTER 

the response. 




w 



QK701 




153 COUNTDOWN LOOP 
(SET G1G2 TO 1001 1001 AND 
DECREMENT ONCE EACH ROS CYCLE) 





I— FETCH 
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CLF 225 START I/O 
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CL226 01 



c 



OP 

CODE I 

QK700 

/ \ OFF 

< PSW BIT 15 >— 

V / 

y 



1 OI\j 

2 OFF 




ON 



INTERRUPT CODE 
2 TO THE F-REG. 

(PRIVILEDGED 

OPERATION) 



PROG 
CLF 122 



THE UNIT ADDRESS IS IN 
L ( 0—7) AND L (24—31 ) • 

THE CHANNEL ADDRESS IS 
IN L( 21-24). 

SET THE COND REG TO 00. 
ISSUE TEST I/O TO THE 
COMMON CHANNEL. 



1 ON 

2 ON 



THE MPX CHANNEL 
REQUESTS 
ANOTHER 
TIME-OUT. 




1 OFF 

2 ON 



1 OFF 

2 OFF 



NOT VALID 



THE CHANNEL HAS LOADED THE R AND M REGISTERS 
WITH THIS DATAS 



R-REG 



STATS 4— OFF. 
5— ON. 6— OFF 
IDENTIFY TEST 
I/O AFTER THE 
RESPONSE. 



RESET 

2. 


STATS 1. 
AND 3. 







M-REG 



1 KEY 1 0000 


COMMAND ADDRESS 

Q -1* 


1 u— O 1 






UNIT 


CHANNEL 


COUNT 


STATUS 
0 7 


STATUS 
8 15 


16 31 



THE CHANNEL MAY 
HAVE CHANGED 
THE CONDITION 
REGISTER TO 
10 OR 11. 



I 

QK701 I 



«o 



QK705 



153 COUNTDOWN LOOP 

(SET G1G2 TO 1001 
1001 AND DECREMENT 
ONCE EACH ROS CYCLE) 



LOAD THE CHANNEL STATUS WORD 
WITH THE DATA IN THE R AND M 
REGISTERS! 

R-REG TO BYTES 64-67 
M-REG TO BYTES 68-71 

SET THE CONDITION REG TO 01. 



/ \ 

/ \STAT3 REPLY 

< COUNTDOWN OR > 

\ REPLY 




I COUNTDOWN 

I 




ISSUE 

' » WAKE-UP* * 
TO THE COMMON 
CHANNEL. 



SETUP 8 CYCLE 
COUNTDOWN 




( 



v 

->■<- 

I 

I 

I 



I— FETCH 



J 




DECREMENT 
CYCLE COUNT 




ISSUE 

' ’TIME-OUT 
CHECK * * TO THE 
COMMON CHANNEL. 



I 



SET M(0— 15) FOR ' 'CHAN 
CTRL CHECK" INDICATION. 

M ( 0—7 ) 0000 0000 
M ( 8—15 ) 0000 0100 



QK705 



■ 

I 



CHANGE UNIT AND CHANNEL 
STATUS BYTES OF THE CSW 
WITH M (0— 15 ) . 

M ( 0—7 ) TO BYTE 68 (UNIT ST) 
M(8— 15) TO BYTE 69 (CH ST) 

SET THE CONDITION REG TO 01 
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/ 

I 




I— FETCH 



v 

\ 

I 
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0P100 



FETCH THE 
LEFT-MOST OP 2 
WORD FROM MAIN 
STORAGE TO THE 
L-REG. 




T 



COUNTERS AND REGISTERS 

LB ctr: 



SET TO THE TWO LOW-ORDER BITS OF THE OP 2 ADDR. 
CONTROLS L-REG OUTGATES. 

PLUS ONE AS EACH BYTE IS ASSEMBLED. 

MB CTR5 



SET TO THE TWO LOW-ORDER BITS OF THE OP 1 ADDR. 
CONTROLS THE M-REG OUTGATING AND INGATING. 

PLUS ONE AS EACH BYTE IS ASSEMBLED. 

G G coupled: 

1 2 



SET TO THE INSTRUCTIONS LENGTH FIELD. 
COUNTS THE NUMBER OF REMAINING BYTES. 
MINUS ONE AS EACH BYTE IS ASSEMBLED. 

BYTE STATS: 



SET FROM THE MB CTR. 

CONTROLS CRLOG ZERO/CARRY TESTING. 

ws i: 



HOLDS THE CURRENT OP 1 ADDRESS. 
WS 2 : 



HOLDS THE CURRENT OP 2 ADDRESS. 
WS 3S 



TEMPORARY STORAGE FOR OP 2 WORD. IF LB CTR IS 
NOT THREE* THIS SAVES A MAIN STORAGE FETCH FOR 
THE REMAINING USABLE BYTES OF THIS WORD. 

l-reg: 



HOLDS THE OP 2 WORD DURING THE ASSEMBLY. 
HOLDS THE OP 1 WORD FOR THE COMPARE. 

m-reg: 



SET TO ALL ONES BEFORE THE ASSEMBLY. 

HOLDS THE BYTE ALIGNED/CQMPLEMENTED OP 2. 

R— REG! 



USED AS AN ADDRESS REGISTER FOR OP I/O P 2. 



T 

« >■ 

1 



COMPLEMENT AND BYTE ALIGN THE 
OP 2 BYTE FROM THE L-REG* TO THE 
CORRESPONDING OP 1 BYTE POSITION 
IN THE M-REG. 

L (PER LB CTR) TO U (OP 2 BYTE) 
M(PER MB CTR) TO V (ALL 1-BITS) 
— EXCLQR— 

W TO M(PER MB CTR) 



I 




SET THE BYTE STAT PER THE MB CTR. 
INCREMENT LB AND MB CTRS BY +1. 
DECREMENT G G COUPLED BY -1. 

1 2 



I— £ 




THE M-REGISTER CONTAINS ' 
ENOUGH OP 2 BYTES TO 
COMPARE WITH THE BYTES 
OF THE OP 1 WORD. 



THE OP 2 WORD IN THE L-REG IS 
STORED IN WS3. IF LB CTR * 3* THIS 
WORD STILL CONTAINS USABLE BYTES. 



FETCH THE OP 1 WORD FROM 
MAIN STORAGE TO THE L-REG. 



COMPARE 



L TO XG (OP 1 WORD) 

M TO Y (OP 2* ALIGNED AND CMPL) 
-HOT ONE- 

( RESULT IS IN THE • T 1 LATCHES) 



TEST THE RESULT 



THE CRLOG MICRORDER SETS THE 
COND REG TO THE RESULTS. 

I 



r 



YES^ 



I 

[set the cr to oo 1 

( EQUAL ) I 
l J 



I 

A 

/ S 

/ s 

' T * 0 N 

PER BYTE 
v STATS > 

v / 

v x 

V 



NO 

V — — 



[set 



I 

A 

/ s 
/ s 

NO ' CARRY-OUT N v YES 

p -< OF HIGH ORDER V 1 

v BYTE ? ✓ 

I v y I 

THE CR TO oF V v ^ l"sET THE CR TO lF 
(LOW) I (HIGH) I 

------ J I — — — J 



COMPARE LOGICAL IS A BINARY COMPARE OF TWO 
FIELDS IN MAIN STORAGE. BOTH FIELDS ARE 
SCANNED FROM LEFT TO RIGHT UNTIL AN UNEQUAL 
(TO) IS FOUND OR UNTIL BOTH FIELDS HAVE 
BEEN SCANNED (GO). 

LOW 

T* 

>SCAN > V 

OP 1 00000001010111000111000101001100 

OP 2 00000001010111000111100101000100 



EACH FIELD MAY BE UP TO 256 BYTES LONG AND 
MAY NOT BE BYTE ALIGNED ON WORD BOUNDARIES. 

IN MAIN STORAGE: 



OP 1 



OP 2 



THE OP 1 WORD IS COMPARED A WORD AT A TIME 
JUST AS IT IS FOUND IN MAIN STORAGE. THE 
BYTES OF THE OP 2 FIELD ARE BYTE ALIGNED TO 
THE OP 1 FIELD. 

OP 2 BYTE ALIGNED 



p 1 (BOTH WORDS HAD TO BE 

I 0 1 5 C 7 91 FETCHED FROM MAIN 
L J STORAGE) 



OP 2 BYTES ARE COMPLEMENTED AND BYTE 
ALIGNED IN THE M-REG FOR COMPARISON WITH 

the op i word when it is fetched from main 

STORAGE. 

OP 2 BYTE ALIGNED AND COMPL* IN THE M-REG 



M-REG FFFEA386 (OP 2 ALIGNED AND C) 
L-REG XX015C71 (OP 1 WORD) 

1 (HOT ONE) 

RESULT FFFFF8 (NOT ZERO) 

(NO CARRY OUT) 



10 1 5 C 7 1 


4 Cl 


10 1 5 C 


7 9 4 4| 



p 



THE OP 1 BYTES WERE 
HI* LO* OR EQ TO THE 



OP 2 BYTES. 




r— 

I 
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SCANNING THE FIELDS 

BOTH FIELDS ARE SCANNED FROM LEFT 
TO RIGHT* 0P1 (PATTERN/DESTINATION) 
IS SCANNED A BYTE AT A TIME* 0P2 
(PACKED SOURCE) IS SCANNED A DIGIT 
AT A TIME* BUT ANY SIGN CODING IN 
BITS 4-7 ARE SKIPPED OVER* 




QP200 I 
TsET STAT 7 OFF 



QP200 



SET STAT 7 ON* 

GEN REG 1 TO WS2(IN 
CASE THERE; ARE NO 
SIG-DIGITS IN QP2) • 




I 



Q. 



THE »S» TRIGGER IS OFF (NOTE 1) 

THE FIRST 0P1 CHARACTER IS SAVED! 
AS THE FILL-CHARACTER IN M/D-F* 



EXAMINE THE PATTERN CHARACTER IN | 
THE 0P1 FIELD WITH THE EDIT STATS! 



HEX 20 
DIGIT SELECT 



HEX 21 

SIGNIFICANCE START 





HEX 22 

FIELD SEPARATOR 



ANY OTHER HEX CODE 
MESSAGE INSERTATION 



SIGNIFICANCE 

START 




SET THE »S» TRIGGER 
OFF (NOTE 2)* 


i 

i — — — 




l( N 



ON 



| THE FILL CHARACTER 
I REPLACES THE 
I PATTERN CHARACTER* 



SET THE »S» 
TRIGGER ON* 
(NOTE 2) 




LEAVE THE PATTERN! 
CHARACTER IN THE 
0P1 FIELD* 



I 

V 



I 



THE FILL CHARACTER 
REPLACES THE PATTERN 
CHARACTER* 



0 



0P2 DIGIT (NOTE 1) REPLACES 
THE PATTERN CHARACTER BYTE* 




PSW 


12 


OFF— CODE 


1111 


IS 


INSERTED AS 


THE 






ZONE 


BITS 


OF 


THE BYTE* 




PSW 


12 


ON— CODE 


0101 


IS 


INSERTED AS 


THE 






ZONE 


BITS 


OF 


THE BYTE* 





2* THE L-SIGN STAT IS USED AS THE «S* TRIGGER 
IN THE MODEL 50* 





STEP THE 0P2 COUNTERS TO 
THE NEXT DIGIT 



STEP THE 0P2 COUNTERS TO THE 
NEXT BYTE* TO SKIP OVER THE 
SIGN CODING IN BITS 4-7* 



STEP THE 0P1 COUNTERS TO THE 
NEXT PATTERN BYTE* 
i — — i — — — — — - j 




QP206 



SET THE CONDITION CODE TO: 

00 ZERO RESULT 

01 MINUS RESULT (*S» TR ON) 

10 PLUS RESULT ('S' TR OFF) 

t.. — — — — ■ — J 





I— FETCH 




2 
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OP 

CODE 
<D1 . 



OP 

CODE 
<D2 , 



[move numeric 



OP 

CODE 
<D3 , 



OP 

CODE I 
<D4 J 



OP 

CODE 
<D6 , 



MOVE ZONE 



OP 

I CODE 
VD7 „ 



THE DIFFERENCE IS - 



— h 

>X 

S THE Nv 
1 /DIFFERENCE \ 
-C BETWEEN 
\0P2 AND 0P1/ 

X is / 

X ? / 



THE 

DIFFERENCE 

IS —2* — 3* 

OR —4 



THE DIFFERENCE IS NOT -1* -2* -3, OR -4 




MOVE CHARACTER 




EXCLUSIVE OR 



: G1G2 

X 



QP820 1 

BYTES ARE ASSEMBLED 
VIA THE MOVER. 

DESTINATION WORDS 
ARE FETCHED AND 
STORED AS REQUIRED. 



QPQ20 I 

BYTES ARE ASSEMBLED 
VIA THE MOVER. 

DESTINATION WORDS 
ARE FETCHED AND 
STORED AS REQUIRED. 



SET THE MOVER FUNCTION REGISTER 
TO THE DESIRED ACTION. 

SET MD = 0 IF D2 OP. 

SET F = 0 IF Dl* D2* OR D3 OP. 



QP800 I 

FETCH THE INITIAL 1ST AND 
2ND OPERAND WORDS. 

PERFORM THE ADDRESS TEST TO 
DETERMINE THE DIFFERENCE 
BETWEEN THE 2ND AND 1ST 
OPERAND ADDRESSES. 



G1G2 



YES 



./x 



G1G2 =0 



YES 



QP810 

GATE THE SOURCE AND DESTINATION 
BYTE TO THE MOVER? ASSEMBLE PER 
THE MOVER FUNCTION REG? THE 
RESULT REPLACES THE DESTINATION 
BYTE. 

STEP THE L-BYTE* M— BYTE* AND 
LENGTH COUNTERS, 

TEST THE BYTE COUNTERS AND DO 
THE SOURCE FETCHES* DESTINATION 
FETCHES* AND DESTINATION STORES 
AS REQUIRED. * 



OR < 3 ; 



YES 




QP830 I 

THIS ROUTINE IS SIMILAR TO THE 
ONE ON THE LEFT* EXCEPT THAT 
SOURCE AND DESTINATION WORDS ARE 
NOT PRE-FETCHED. THE FETCHES ARE 
MADE ONLY IF THEY ARE NECESSARY, 

THE OTHER ROUTINE IS FASTER* BUT 
THERE IS DANGER OF EXCEEDING THE 
STORAGE CAPACITY BECAUSE OF A 
MOVE IN THE UPPER-LIMITS OF 
STORAGE. 






G1G2 * 0 



YES 



ONLY THE INITIAL SOURCE - 
FIELD (2ND OPERAND) WORDS 
ARE FETCHED. THE WORD IN 
THE DESTINATION REGISTER 
REPLACES THE SOURCE WORD 
PERIODICALLY. 



F-REG * 0 
INDICATES THE 
INSTRUCTION IS 
D4* D5* OR D7 



->■<- 

I 



F-REG = 0 



YES 



F— REG - 0 
INDICATES THE 
INSTRUCTION IS 
Dl* D2* OR D3 



A NON-ZERO 
BYTE HAS 
BEEN STORED 
IN THE 
DESTINATION 
FIELD 



OFF 




ALL 

STORED 

BYTES 

WERE 

ZERO 



SET THE 
CONDITION CODE 
TO 01 



SET THE 

CONDITION CODE 
TO 00 



* DESTINATION FIELD (1ST OPERAND) 
FETCHES ARE NOT REQUIRED FOR THE 
MOVE CHARACTER (D2) INSTRUCTION. 



I— FETCH 



I— FETCH 



I— FETCH 
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WS 3 TO THE 
L-REGISTER# 
THIS WORD 
CONTAINS THE 
NEXT ARGUMENT 
BYTE# 




fsET STAT 2 OFF I [sET STAT 2 ON I 

l ■ — — 1 » i 



I 

L 




I 

J 



THE OP 1 ADDRESS IS IN THE R-REG 
(CURRENT ARGUMENT ADDRESS) 

R ( 8—29 ) TO SAR (TO FETCH THE WORD) 
R( 30-31) TO MB CTR (BYTE ADDRESS) 



FETCH THE WORD CONTAINING THE 
ARGUMENT BYTE FROM MAIN STORAGE 
TO THE L-REGISTER# 



STORE THE L-REGISTER IN WS 3* TO 
SAVE A MAIN STORAGE FETCH IF THE 
NEXT ARGUMENT BYTE IS NEEDED# 



■>■<'* 

I 



I 



J 



L(PER MB CTR) 

TO M( 24-31) 
(ARGUMENT BYTE) 



I 

I 



WS 2 TO THE 
L-REG 

(BASE ADDRESS 
OF THE TABLE) 



I 

I 



L (8— 31 ) PLUS 
M( 24-31) TO SAR 
AND L 

(FORM ADDRESS 
OF THE TABLE 
BYTE) 



I 

I 



L( 30-31) TO THE 
LB CTR 

(BYTE ADDRESS 
OF THE TABLE 
BYTE) 



I 

I 

I FETCH THE WORD I 
I CONTAINING THE I 
I TABLE BYTE FROM I 
I MAIN STORAGE TO I 
I THE L-REG I 

I I 






(TRANSLATE) 



OFF 

V 



yv 

V ON 
STAT 2 >— 



(TRANSLATE AND TEST) 



TABLE BYTE IN L(PER LB) 
TO M(PER MB)# 

(TO BYTE ALIGN THE TABLE 
BYTE WITH THE ARGUMENT 
BYTE IN THE OP 1 FIELD) 



xy 



y 







SET THE BYTE STATS TO 
THE MB CTR# 






STORE THE M BYTE IN MAIN 
STORE PER BYTE STATS# 
(TABLE BYTE REPLACES THE 
ARGUMENT BYTE) 



TABLE BYTE IN L (PER LB) TO 
W ( 0—7 ) TO M/D-F REG 
(SAVE THE FUNCTION BYTE) 

TEST W ( 0—7 ) FOR ALL 2ER0 BITS 



yv 




y \ 

YES y V NO 

< G1G2 = 0 > > ■<- 




y 



y 



I— FETCH 



\ 

J 



NO 



y 



/X 




MB = 3 



WS 3 CONTAINS 
USABLE argument 
BYTES# 




\yes 

3 S 

y r 



MAIN STORAGE 
FETCH REQUIRED 
FOR THE NEXT 
ARGUMENT BYTE# 






STORE THE N0N-2ER0 FUNCTION 
BYTE FROM M/D-F REG IN 
GENERAL REGISTER 2(24-31)# 

STORE THE CURRENT OP 1 
ADDRESS FROM R(8-3l) IN 
GENERAL REGISTER 1(8-31)# 
(THE ADDRESS OF THE 
ARGUMENT BYTE THAT CAUSED 
THE NON-ZERO TABLE 
REFERENCE) 




R-REG PLUS ONE TO THE R-REG# 
(ARGUMENT BYTE ADDRESS) 

STEP MB CTR PLUS ONE# 
DECREMENT G G CTR MINUS ONE. 
1 2 

RESET THE BYTE STATS# 



SET THE CR TO 
00 

(ALL TABLE 
BYTES WERE 
ZERO) 



SET THE CR TO 
01 

(NON-ZERO BYTE* 
NOT END OF 
FIELD) 



SET THE CR TO 
10 

(NON-ZERO BYTE* 
AT THE END OF 
THE FIELD) 




I 

I 

I 



I 

I 

v 



I 

I 

r 



V. 



I— FETCH 



I 

J 
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OP 

CODE 




QS110 




QSHO 






SET THE R-SIGN STAT ON ‘IF THE OP 1 
AND OP 2 SIGNS ARE DIFFERENT* 




SET THE R— SI 
AND OP 2 SIGI 


?N STAT ON IF THE OP 1 
\iS ARE ALIKE* 




YES 



SET THE L-SIGN STAT ON IF OP 1 HAS 
A MINUS SIGN* 



QS112 



■<- 

I 

I 



NO S S. YES 

< OVERFLOW 



BYTE ALIGN OP 2* AND CHECK FOR VALID 
DIGIT CODING* 

WHEN OP 2 IS EXHAUSTED* EXTEND WITH 
ZEROS* 



OFF 



PUT THE’ 'BYTE-ALIGNED ** OP 2 IN EXCESS! 
SIX FORM BY ADDING SIX TO EACH DIGIT* 




NO / CHANGE 
' SIGN OF MINUS 
ZERO? 



YES 




QS120 




RECOMPLEMENT THE OP 1 FIELD AND 
CHANGE THE SIGN. 



">■<" 



CHANGE THE MINUS SIGN TO A PLUS 




RECOMPLEMENT THE OP 1 FIELD AND 


SIGN IN THE OP 1 FIELD* 




CHANGE THE SIGN* 



SET THE CC TO 11 FOR OVERFLOW 



->■<- 

I 

I 



OFF 



FETCH THE OP 1 WORD AND TEST FOR 
VALID DIGITS* 

SET THE BYTE STATS TO IDENTIFY THE 
BYTES OF THE OP 1 FIELD* 



OFF 





TRUE ADD 


OP 1 IN R 


(TRUE) 


OP 2 IN L 


(TRUE) 




(SUM TO R) 


GENERATE 


THE CORRECTION IN L* 




SET THE CC TO? 

00 - IF THE RESULT IS ZERO* 

01 - IF THE RESULT IS MINUS* 
10 - IF THE RESULT IS PLUS* 



v>K- 

I 

I 

I 




INTERRUPT CODE A TO THE F— REG* 
(DECIMAL OVERFLOW) 



■i 









COMPLEMENT ADD 


OP 


1 


IN R 


(TRUE) 


OP 


2 


IN L 


( COMPL ) 








(DIFFERENCE TO R) 


[GENERATE 


THE CORRECTION IN L* 



I— FETCH 



■HARDWARE CIRCUITS ARE CHECKING* 
■OP 1 AND OP 2 FOR VALID DIGIT ■ 
■AND SIGN CODING AT THE MOVER* ■ 

■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■a 



INTERRUPT CODE 7 TO THE F-REG* 
(INVALID DATA) 



V*<- 



EXCESS-SIX CORRECTION 


R-REGISTER 


(TRUE) 


L-REGISTER 


(COMPL) 


(DIFFERENCE 


TO SDR) 


STORE THE DIFFERENCE PER 


THE BYTE 


STATS* 





PROG 
CLF 122 
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WS0*WS2*WS12*AND THE R-REG 
ARE USED IF 0P2 (MULTIPLICAND) 
IS GREATER THAN 7 DIGITS# 

IF L2=3 OR IS <3* ONLY ONE 
WORD OF XI * X2* AND PARTIAL 
PRODUCT IS NECESSARY J STAT 5 
IS USED TO SHORTEN THE 
MULTIPLY LOOPS# 



OP 

CODE 



QS400/402 



FETCH 0P2# TEST FOR VALID 
DIGIT/SIGN CODING# SAVE THE 
SIGN# RIGHT ALIGN THE DIGITS 
ON A WORD BOUNDRY# STORE THE 
XI VALUE IN WS 12/10# STORE 
THE X2 VALUE IN WS 0/8# 





I 



SAVE THE PRODUCT WORD IN WS6 
ZERO THE R-M REGISTERS TO 
THE INITIAL PARTIAL PRODUCT# 
TURN ON STAT 0. 



1 



r 



QS4Q4 



TRUE ADD THE XI VALUE IN WS12- 
WS10 TO THE PARTIAL PRODUCT IN 
THE R-M REGISTERS# 

REDUCE M/D BY ONE# 




I 

* 




ZERO 



TRUE ADD THE X2 VALUE IN WSO- 
WS8 TO THE PARTIAL PRODUCT 
IN THE R-M REGISTERS# 

REDUCE M/D BY TWO# 



J 



0S402 



SHIFT THE R-M REG RIGHT FOUR# 
THE SPILL DIGIT IS THE COM- 
PLETED PRODUCT DIGIT# THE 
SHIFTED RESULT IS SAVED IN 
WS2/WS3# 



X 



■> 



I 



| PRODUCT DIGIT TO BITS 4-7 OF THE 
| PRODUCT WORD IN WS6# 

I 

| TURN ON STAT 0# 

I 

| PUT THE NEXT MULTIPLIER DIGIT (BITS 0-3 
I OF THE WS6 BYTE) IN M/D# 

! PARTIAL PRODUCT IN WS2/WS3 BACK INTO 
THE R-M REGS# 




I 




| PRODUCT DIGIT TO BITS 0-3 OF THE PRODUCT 
| WORD IN WS6# 



I 

| TURN OFF STAT 0# 



YES 



RESTORE THE COMPLETED PRODUCT WORD IN 
THE 0P1 FIELD OF MAIN STORAGE# 

FETCH THE NEXT 0P1 WORD TO WS6# 





INTERRUPT CODE 7 TO THE F-REG | 

(INVALID DATA) I 



INSERT THE HIGH-ORDER PARTIAL PRODUCT 
DIGITS IN THE 0P1 FIELD 




CLF 122 



>» 
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QS400 




FETCH OPERAND 2 (DIVISOR)# 

SAVE THE SIGN VALUE# 

RIGHT-ALIGN THE DIGITS ON A WORD BLUNDRY# 
TEST FOR SPECIFICATION EXCEPTIONS 
1# L2 GREATER THAN 7# 

2# L2 GREATER THAN LI# 

3# L2 EQUAL TO LI# 



TEST THE HIGH-ORDER ADDER CARRY-OUTS 
ASSEMBLED DIVIDEND (TRUE) XXXXXXXX 
ALIGNED DIVISOR (COMPLEMENT) XXXXXXXX 
HOT ONE 1 > 

IF NO CARRY OUT - OK 
IF CARRY OUT - EXCEPTION 



QS300 




FETCH L2 BYTES OF OPERAND 1 AND RIGHT 
ALIGN ON A WORD BOUNDRY# (THIS IS THE 
"ASSEMBLED DIVIDEND") 

TEST FOR A DECIMAL DIVIDE EXCEPTIONS 

1# HIGH ORDER 0P1 DIGIT IS NOT ZERO# 
2# DIVISOR (OPERAND 2) IS ZERO# 

3# QUOTIENT WOULD OVERFLOW THE OP 1 
FIELD# 



PROG 




CLF 122 




L 



SET THE M/D CTR TO ZERO (QUOTIENT CTR)# 
SHIFT THE ASSEMBLED DIVIDEND LEFT ONE 
DIGIT# A ZERO IS SHIFTED OUT OF THE HIGH— 
ORDER* AND THE NEXT DIVIDEND DIGIT IS 
ENTERED TO THE LOW-ORDER POSITION TO FORM 
THE NEW ASSEMBLED DIVIDEND# 



INTERRUPT CODE B TO THE F-REG# 
(DECIMAL DIVIDE) 




CLF 122 




QS302 / 304 




ASSEMBLED DIVIDEND REDUCTION 
M/D COUNTER PLUS ONE (DEVELOP QUOTIENT) 
ASSEMBLED DIVIDEND (TRUE) XXXXXXXX 

ALIGNED DIVISOR (COMPLEMENT) XXXXXXXX 

HOT ONE 1 



(NEW ASSEMBLED DIVIDEND) XXXXXXXX 



IF NO CARRY OUT OF HIGH ORDER POSITION* 
THEN THIS IS AN OVERDRAW# 




DIVIDEND CORRECTION BECAUSE OF OVERDRAW 

M/D COUNTER MINUS ONE (CORRECT QUOTIENT)# 
ASSEMBLED DIVIDEND (TRUE) XXXXXXXX 
ASSEMBLED DIVISOR (TRUE) XXXXXXXX 



CORRECTED ASSEMBLED DIVIDEND XXXXXXXX 



THE M/D CONTENTS IS A COMPLETED QUOTIENT 
DIGIT# SET THE M/D VALUE IN THE OP 1 
QUOTIENT DIGIT POSITION# 

FIRST QUOTIENT DIGIT TO BITS 0-3 OF THE 
ORIGINAL B1D1 BYTE# 

INSERT EACH NEW QUOTIENT DIGIT TO THE 
RIGHT OF THE PREVIOUS DIGIT POSITION# 
THERE WILL BE LI MINUS L2 BYTES OF 
QUOTIENT; THE LAST DIGIT IS INSERTED IN 
BITS 4-7 OF THE RIGHTMOST BYTE# 




IF OP 1 AND OP 2 SIGNS ARE ALIKE* STORE A 
PLUS SIGN IN THE QUOTIENT. 

IF OP 1 AND OP 2 SIGNS ARE UNLIKE* STORE 
A MINUS SIGN IN THE QUOTIENT. 

SHIFT THE ASSEMBLED DIVIDEND LEFT ONE 
DIGIT POSITION* THE DIVIDEND (OP 1) SIGN 
IS ENTERED IN THE LOW-ORDER POSITION. THE 
SHIFTED VALUE IS THE REMAINDER. THE LOW- 
ORDER L2 + 1 BYTES ARE STORED IN THE LOW- 
ORDER L2 t 1 BYTES OF THE OP 1 FIELD AS 
THE REMAINDER. 



THE UNITS QUOTIENT 
DIGIT WAS INSERTED 
IN BITS 4-7 OF THE 
RIGHTMOST QUOTIENT 
BVTE+ WHEN THE SIGN 
IS INSERTED IN BITS 
4-7. THE REMAINING 
QUOTIENT DIGITS ARE 
LEFT-SHIFTED ONE 
D IG IT POSITION. A 
ZERO IS ALWAYS 
SHIFTED OUT. ASSUME 
A THREE DIGIT (TWO 
BYTE) QUOTIENT FIELD: 



before: 


Z H 


T 


U 


after: 


H T 


U 


S 




1 




YES 




NO 
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2 



CLF 242 



DIVIDE (DECIMAL) 
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1 







CL243 01 




SET THE CONDITION CODE TO 
INDICATE THAT THE 0P1 
FIELD IS 5 



EQUAL* • *00 

LOW#**#*01 

HIGH****10 




I— FETCH 



CLF 243 COMPARE (DECIMAL) 



DATE 10 SEP 65 MACH 






2050 



CLF 243 



COMPARE (DECIMAL) 



IBM CONFIDENTIAL 



FRAME 

P.N# 

IBM CORP. SDD PAGE 



1 



oa -pro i - o 




CL244 01 



/ OP \ 
I CODE I 
V FI / 



SECOND LEVEL I— FETCH SET THESE REGISTERS: 

R— REG SOURCE ADDRESS (B2D2 SUM + L2) 

LB CTR SOURCE BYTE ADDRESS (R 30-31) 

G2 CTR SOURCE BYTE LENGTH (L2) 

H-REG DESTINATION ADDRESS (B1D1 SUM +L1) 
MB CTR DESTINATION BYTE ADDRESS (H 30-31) 
G1 CTR DESTINATION BYTE LENGTH (LI) 



QS502 




FETCH THE RIGHT-MOST SOURCE WORD TO THE 


IL AND M REGISTERS. 

L .. - 


1 

. J 



ADDRESS TEST NOTE 2 



FETCH THE RIGHT- 
MOST DESTINATION 
WORD TO THE 
M-REG 



>X 

X X 
/ X 

NO / X YES 

— X T 8—31 = 0 >— 

X X 

X X 

X X 

N/' 



THE DESTINATION 
IS IN THE M-REG 





I 

L 



->■ 

I 



IL 4-7 TO M 0-3 I 

I (NOTE 1) I 

L-..n- — — J 



L 4-7 TO M 0-3 I 
(NOTE 1) I 



I 

I 



SET A BYTE STATl 
PER THE MB CTR. I 



SET A BYTE STAT 
PER THE MB CTR. 





y 


X NO 


< MB 


a 0 — 


X 


y 


X 


y 


X 


y 




Tyes 



STORE THE M-REG 
PER THE BYTE 
STATS. 

RESET THE BYTE 
STATS. 

H-REG -4 TO THE 
H-REG. 



DECREMENT 
G1 AND MB CTRS. 



L 0-3 TO M 4-7 | 
(NOTE 1) I 

l 



A 




X 



L 0-3 TO MD. 

(NOTE 1) 

M 0-31 TO L 0-31. 
STORE M-REGISTER 
PER BYTE STATS. 
RESET THE BYTE 
STATS. 

H-REG -4 TO THE 
H-REG. 

DECREMENT G1 AND 
MB COUNTERS 



MD TO M 4-7. 
(NOTE 1) 



I 




DECREMENT 
G1 AND MB CTRS. I 



I MO-31 TO L0-31.I 
IL0-3 TO M4— 7 | 
I (NOTE 1). I 

i 1 



I 










ADDRESS TEST NOTE 2 




SOURCE FETCH TO 
THE L-REGISTER. 



%<r 



decrement 

G2 AND LB CTRS. 




M 4-7 TO THE 
F— REG. (NOTE 1) 
STORE THE M-REG 
PER THE BYTE 
STATS. 

SOURCE FETCH TO 
THE L AND M 
REGISTERS. 

F-REG TO M 4-7 
(NOTE 1). 



v 

->« 




ZERO DIGIT TO 
M 0-3 (NOTE 1). 



DECREMENT 
G2 AND LB CTRS. I 




i<- 



SET A BYTE STAT 

PER THE MB CTR. I 
I 



/X 




A 



DECREMENT 
G1 AND MB CTRS. 



NOTES: 1 0-3 AND 4-7 REFER TO THE BITS OF THE BYTE 

SELECTED BY THE LB AND MB COUNTERS. 

2 THE ADDRESS TEST RESULTS IN T 8-31 = Of IF 
BOTH THE SOURCE AND DESTINATION ARE THE 
SAME WORD OF MAIN STORAGE. 



I 

I 



I ZERO DIGITS TO I 
IM 0-3 AND M 4-71 

I (NOTE 1). I 

l l 



L 



■V 
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/ OP \ 
I CODE I 
VF2 j 



SECOND LEVEL I -FETCH SET THESE REGISTERS! 

R-REG SOURCE ADDRESS (B2D2 SUM + L2) 

LB CTR SOURCE BYTE ADDRESS (R 30-31) 

G2 CTR SOURCE BYTE LENGTH (L2) 

H-REG DESTINATION ADDRESS 
MB CTR DESTINATION BYTE ADDRESS 
G1 CTR DESTINATION BYTE LENGTH (LI > 



QS500 / 502 I 

FETCH THE RIGHT-MOST SOURCE WORD TO THE I 
L AND M REGISTERS. I 

, J 



L 0-3 TO M 4-7 (SIGN) 

L 4-7 TO M 0-3 (UNITS DIGIT) 

— — .... ■■■■ J 



12 






I ADDRESS TEST (NOTE 2)1 

L - , — ■ ■ I 

I 

yv 



ii 



1 




* 

/ \ 

i i i 




2 

\-J 



/ \ 

I 3 I 






I 9 I 
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DATE 10 MAY 65 MACH* 2050 



C 



FRAME 



2 

4 

5 



CLF 245 



PACK 



IBM CONFIDENTIAL 



P*N* 

IBM CORP* SDD PAGE 



2 
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CL246 01 



QS600 






OP 

CODE 
F3 




SECOND LEVEL I-FETCH SET THESE REGISTERS S 

R-REG SOURCE ADDRESS (B2D2 SUM + L2) 

LB CTR SOURCE BYTE ADDRESS <R 30-31) 

G2 CTR SOURCE BYTE LENGTH (L2) 

H-REG DESTINATION ADDRESS (B1D1 SUM +L1) 
MB CTR DESTINATION BYTE ADDRESS <H 30-31) 
G1 CTR DESTINATION BYTE LENGTH <L1) 



FETCH THE RIGHT-MOST SOURCE WORD TO THE 
L AND M REGISTERS. 



L 0-3 TO M 4-7 (DIGIT). NOTE 1 
L 4-7 TO M 0-3 (SIGN). NOTE 1 
SET A BYTE STAT PER THE MB CTR. 




O Q Q 







DECREMENT 

G1-G2-MB-LB 



QS600 



BITS 1111 TO 
M 0-3. (NOTE 1) 
L 4-7 TO M 4-7 
SET A BYTE STAT 
PER THE MB CTR. 



I 

I 




DECREMENT 

G1-G2-MB-LB 



QS602 



BITS 1111 TO 
M 0-3. (NOTE 1) 
L 4-7 TO M 4-7. 

SET A BYTE STAT 
PER THE MB CTR. 



I 

I 








I 

QS600 I 



I 

QS602 I 



BITS 1111 TO 
M 0-3. (NOTE 1) 
L 0-3 TO M 4-7. 

SET A BYTE STAT 
PER THE MB CTR. 



BITS 1111 TO 
M 0-3. (NOTE 1) 
L 0-3 TO M 4-7. 

SET A BYTE STAT 
PER THE MB CTR. 




o 



decrement 

G1 AND MB CTRS. 



BITS 1111 TO 
M 0-3. (NOTE 1) 
BITS 0000 TO 
M 4-7. (NOTE 1) 
SET A BYTE STAT 
PER THE MB CTR. 




6 



notes: 



0-3 AND 4-7 REFER TO THE BITS OF THE BYTE SELECTED BY THE LB AND MB COUNTERS. 
BITS 1111 ARE GENERATED FOR ZONE IF PSW 12 IS OFF (EBCDIC). 

BITS 0101 ARE GENERATED FOR ZONE IF PSW 12 IS ON (ASCII-8). 



2 THE ADDRESS TEST RESULTS IN THE T8-31 = Ot IF BOTH THE SOURCE AND DESTINATION 
ARE THE SAME WORD OF MAIN STORAGE. 
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• CLF 246 UNPACK 
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o»^wro 




CL247 01 




N/ 



CLF 247 ZERO AND ADD 
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I FRAME 
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C 

1 

2 
4 
7 




CAS HEX i — RQS ADDRESS—, 

QV- ADD r-BASE , r— E — i 

0123 4501 23AB 



ROUTINE REQUEST 
BUFFER FUNCTION 



MPX 

ROUTINE 



NOT 

4 01 23A < 

V w wv 



ROUTINE NAME 





AO 


210 


080 




A1 


220 


084 


5 


A2 


230 


088 


5 


A2 


231 




5 


A3 


240 


086 


5 


A3 


241 




5 


A3 


242 




5 


A3 


243 





0000 


1000 


0000 


0000 


1000 


0100 


0000 


1000 


1000 


FROM 


QV 


230 


0000 


1000 


1100 


FROM 


QV 


240 


FROM 


QV 


240 


FROM 


QV 


240 



COUNT FETCH AND UPDATE 
DATA ADDRESS FETCH AND UPDATE 
DATA HANDLING 1 (OUTPUT) 

DATA HANDLING 1 (INPUT) 

DATA HANDLING 2 (OUTPUT) 

DATA HANDLING 2 (READ FWD) 

DATA HANDLING 2 (STOP OR SKIP) 
DATA HANDLING 2 (READ BKWD) 



A4 


250 


090 


0000 


1001 


0000 


A5 


350 


094 


0000 


1001 


0100 


A5 


351 




FROM 


QV 


350 


A5 


352 




FROM 


QV 


350 


A6 


820 


098 


0000 


1001 


1000 


A7 


270 


09C 


0000 

0000 


1001 


1100 


BO 


410 


OAO 


0000 


1010 


0000 


B1 


420 


0A4 


0000 


1010 


0100 


B2 


430 


0A8 


0000 


1010 


1000 


B3 


440 


OAC 


0000 


1010 


1100 


B5 


460 


0B4 


0000 


1011 


0100 


B6 


470 


0B8 


0000 


1011 


1000 


B7 


840 


OBC 


0000 

0000 


1011 


1100 


CO 


260 


002 


0000 


0000 


0010 


Cl 


520 


086 


0000 


1000 


0110 


C2 


540 


08A 


0000 


1000 


1010 


C3 


550 


08E 


0000 


1000 


1110 


C4 


850 


092 


0000 


1001 


0010 


C5 


810 


096 


0000 


1001 


0110 


C6 


620 


09A 


0000 


1001 


1010 


C7 


530 


09E 


0000 

0000 


1001 


1110 


DO 


360 


0A2 


0000 


1010 


0010 


D1 


310 


0A6 


0000 




0110 


D2 


330 


OAA 


0000 




1010 


D3 


340 


OAE 


0000 




1110 


D4 


320 


0B2 


0000 


1011 


0010 


D4 


321 




FROM 


QV 


320 


D5 


830 


0B6 


0000 


1011 


0110 


D5 


831 




FROM 


QV 


830 


D5 


832 




FROM 


QV 


830 


D7 


370 


OBE 


0000 


1011 


1110 



END STATUS ANALYSIS 
COMMAND CHAIN END STATUS ANALYSIS 
COMMAND CHAIN END STATUS ANALYSIS 
COMMAND CHAIN END STATUS ANALYSIS 



INTERRUPT PREPARATION 
COUNT EQUALS ZERO ANALYSIS 

SEQUENCE CONTROL FETCH 

START 10 UNIT SELECT 

START 10 UNIT ADDRESS COMPARE 

START 10 STATUS ANALYSIS 

COUNT STORE 

DA STORE 

CHECK HANDLING 



PCI 

TEST 10 UNIT SELECT 1 

TEST 10 UNIT ADDRESS COMPARE 

TEST 10 ACCEPT STATUS 

CONTROL CHECK 

CONTROL UNIT BUSY 

HALT 10 UNIT SELECT 

TEST 10 UNIT SELECT 2 



COMMAND ADDR FETCH/STORE 
CHAN CONTROL WORD 1 FETCH 
COMMAND CHAIN UNIT ADDRESS COMPARE 
COMMAND CHAIN INITIAL STATUS ANAL 
FETCH 2ND HALF OF CHAN CTRL WORD 
CHAM CnMTROI WORD 2 FETCH 



LOAD 64 PREP (ST 10 OR TEST 10 QED) 
LOAD 64 PREP (TEST 10 NO END QED) 
LOAD 64 PREP (CU BUSY OR HALT 10) 



DATA CHAINING 



IOP 101 



1-0 ROUTINE STARTING ADDRESS 



JCMPX 20 
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FOUL ON START i/l 



POLLING 



SEQUENCE CONTROLS 
FETCH.BO.QV 410 



SET CC3 



POLLING 




START I/O UNIT 
SELECT.B1. 

QV 420 

• • • • • • 



FORM BUMP ADDRESS 



INVALID 




VALID 



1* FETCH UCW DA WORD 
2.ST0RE UA* IN LI 
3.ST0RE UA IN LS 

4. UA TO INTERFACE 
BUS OUT 

5. M/0P TO BFR 2 



FOUL ON START I/l 




ACTIVE 

(SUBCHANNEL BUSY) 



SC 

r 




< sc 



* SEQUENCE CONTROLS 



DEVICE END OR ATTENTION 
IN INTERRUPT BUFFER 




SET CC2 
+ STAT 
3 



IDLE 



RESET IB 
FULL LATCH 



r 



i 



l.BFR 2 M/OP TO I/O STATS 
2.ST0RE CA + 4 IN LSCA 
3.ST0RE DA IN LSDA 
4.F0RM CODED OP 
5.SET ADDRESS OUT 



TIC OR A. 
INVALID /OP \ 
— — < CODE 

VALID 



PROGRAM 

CHECK 




CW 2 COUNT + FLAG TEST 



NO PROGRAM 
CHECK 



l.CODE I/O STATS TO 
START I/O 

2.SET BFR 1 TO = 00 
UNIT STATUS 



l.STORE CODED OP IN 
LS COUNT WORD 5-7 
2. SET SELECT OUT 



NOTE 3 



YES 





START I/O UNIT ADDRESS 



RESET ADDRESS OUT 



YES 



SEQUENCE CONTROLS BUSY 




NO 



<C" 



LOG OUT 



SET CC2 




SET 


GP 


+ STAT 




STATS 


3 




1.2.+ 3 




SET CC3 
STAT 3 



l )^STATUS^> 

N/ 



RESET 



POLLING 



<- 



POLLING 



NOTE l: TO LOAD G4 FLOW 
CHART-ROUTINE C5 
TO CHAIN DATA FLOW CHART- 
ROUTINE DO 

NOTE 33 TO INTERRUPT PREPARATION FLOW 
CHART-ROUTINE D5 



<- 



LOG OUT 



YES 



SEE 
NOTE 
1 




u 



NOTE 



23 



NOTE 43 TO DATA HANDLING FLOW 
CHART-ROUTINE A2 
NOTE 58 TO DATA HANDLING FLOW 
CHART-ROUTINE A3 



NOTE 63 TO END STATUS ANALYSIS FLOW 
CHART ANY CHECK LATCH INPUT 
NOTE 73 TO INPUT DATA HANDLING FLOW 
CHART STATUS IN INPUT 



SET 

SERVICE 

OUT 
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DATA ADDRESS FETCH 
+ UPDATE* A1 .QV 220 



REQUEST IN 








SE 

SELE 

01 


:T 

ECT 

JT 



STATUS) 
IN 

JNPUT> 



YES 





POLLING 



NO / 
CSELECT > 
JN 





LOGOUT 



YES 




/ \ NO! 

<TIMEOUT>— « 



YES 



LOGOUT 
> 



— <TIMEOUT> 
YES 



LOGOUT 



■> 



a 


1. INTERFACE ADDRESS TO BFR 1 




2.FETCH UCW COUNT ON SPLIT READ- 


COUNT FETCH 


WRITE CYCLE + STORE UCW COUNT IN LS 


+ UPDATEiAO 


UCW COUNT WORD 


QV 210 


3 .FORM UA* + STORE IN LS UA 




4. SET COMMAND OUT 




5. FLAGS + OP TO BFR 2 



l.FETCH UCW DA ON SPLIT 
READ— WRITE CYCLE + STORE 
UCW DA IN LS DA WORD 
2.ST0RE BFR UA IN LS UA 

3. DAB TO BFR 1 

4. PCI/0P TO I/O STATS 



OP CODE 

1# INPUT FORWARD-STORE DA+1 
IN UCW DA 

2.INPUT BACKWARD-STORE UCW 
DA— I IN UCW DA 

3.INPUT SKIP- STORE UNCHANGED 
UCW DA.SET I/O STATS TO PCI 
+ STOP 

4.ST0P-ST0RE UNCHANGED UCW DA 
TRANSFER UA* TO BFR 1 





NO 



l.BUS IN TO BFR 2 
2.SET SERVICE OUT 




NO X " v YES 
IN. 



'UCWX RESET 
STORE 






'INPUT) 
TO A2 



r 

REQUEST 

PCI 

ROUTINE 




• • « 



MAIN STOR PROT 
CHECK OR 
INVALID ADDRESS 




l.STORE DATA PER DAB 
2#LS COUNT-1 TO LS 
COUNT WORD 




DATA 

CHECK 



DATA HANDLING 1 
A2.QV 230 




l.SET UCW STORE LTH 
5. RESET CC LTH 



<ERROR 



MAIN STOR PROT 
CHECK OR 
INVALID ADDRESS 



NO 



l.RES CC LTH 
2*SET CMMD OUT 



DATA HANDLING 2 
A3.QV 241 



SET UCW STORE LTH I 




• • 



l.SET OP TO STOP IN LS COUNT 

2. GATE FLAGS + OP TO BFR 2 

3. GATE UA* TO BFR 1 

4.SET I/O STATS TO PCI + STOP 



COUNT ZERO 
ANALYSIS 
A7.QV 270 



l.SET UCW STORE 
LTH 

2.RESET CC LTH 



EQUAL 
ZERO 

• • • 






[NOT • 
ZERO 



NO 



SEE 

NOTE 



SRV 

3n+ not: 
jd uj, 

YES 



NO 





YES 



SERVICE IN 
+ NOT 

SERVICE OUT 



YES 



• • 



YES 



SEE 
NOTE 
1 



□Pt 

IS TAT US 
JN 
/ 

NO 







YES 


<lTIME 


\ NO 
EOUTV-J 



l.BUS 


IN TO 


BFR 


2 


2.SET 


SERVICE 


OUT 




3.SET 


UCW 


STORE LTH 



l.SET IB FULL LTH 
2.SET PCI IN IB 

3. RESET PCI FLAG 

4. UA TO IB 



PCI«CO 
QV 260 

.... 



CC2 



NOTE IS TO THE ANY CHECK LATCH 
ON THE END STATUS 
ANALYSIS FLOW CHART 



POLLING 



-> 



NOTE 2S TO END STATUS ANALYSIS 
FLOW CHART * ROUTINE A4 



YES /PCI 
FLAG 



'INPUT) 
TO A3 





OP CODE 

l.INPUT FORWARD-LS DA+1 TO MAR + LS DA 
LS COUNT-1 TO LS COUNT 
STORE DATA BYTE PER UNINCREMENTED 
DAB+1 

INCREMENTED DAB TO BFR 1 
2. INPUT BACKWARD-LS DA-1 TO MAR+ LS DA 
LS COUNT-1 TO LS COUNT 
STORE DATA BYTE PER UNINCREMENTED 
DAB+1 

DECREMENTED DAB TO BFR 1 

3m INPUT— SKIP— LS COUNT-1 TO LS COUNT 
4.ST0P-LS COUNT TO UCW COUNT 
SET COMMAND OUT 

IF SILI FLAG IS SET * SET CHANNEL 
STATUS = WLR + STORE IN LS COUNT 






EQUAL 

ZERO 



NOT 

ZERO 



NO 



IN 



/\ SERVICE 

X - N0T 

\ /service out 

YES 



l.BUS IN TO BFR 2 
1 2.SET SERVICE OUT 
3.SET UCW STORE LTH 
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DATA ADDRESS FETCH 
+ UPDATE* A1 *QV 220 



l.FETCH UCW DA ON SPLIT 
READ-WRITE CYCLE + STORE 
UCW DA IN LS DA WORD 
2.ST0RE BFR 1 UA IN LS UA 

3. DAB TO BFR 1 

4. PCI/0P TO I/O STATS 



'INPUT' 
TO A2 



1. LS DA TO SAR 

2. DATA BYTE TO 
BFR 2 PER DAB 



DATA HANDLING 1 
A2*Q V 230 



... 



• • • 



1. UNINCREMENTED DAB TO BFR 1 

2. LS DA+1 TO MAR + LS DA 

3. LS COUNT-1 TO LS COUNT 

4. DATA BYTE TO BFR 2 PER 
UNINCREMENTED DAB+1 



DATA HANDLING 2 
A3 *QV 241 



I 



'INPUT\ 
TO A3 



REQUEST IN 




OP CODE 

1 .OUTPUT— STORE UCW DA+1 IN 
UCW DA WORD 

2.ST0P-ST0RE UNCHANGED UCW DA 
UA* TO BFR 1 



NO 



IN 



SERVICE 

< >f NOT 

X. v' SERVICE OUT 

YES 



YES 




YES 



RESET 

SELECT 

OUT 




POLLING 



<SELECT 
JN 





YES 



ERROR 



NO 



MAIN STOR PROT 
CHECK OR 
INVALID ADDRESS 



l.RES CC LTH 
2.SET CMMD OUT 



DATA 

CHECK 



STATUS 




l.SET UCW STORE 
LTH 

2.RES CC LTH 



ERROR 



NO 




. NO. 

<TIMEOUT> — 1 



YES 

LOGOUT 



LOGOUT 



YES 




YES 



C COUNT 



EQUAL 

ONE 



NOT 

EQUAL 

ONE 



. 


1. INTERFACE ADDRESS TO BFR 1 




2.FETCH UCW COUNT + ON SPLIT READ- 


COUNT FETCH 


WRITE CYCLE + STORE UCW COUNT IN 


+ UPDATE*AO 


LS COUNT WORD 


QV 210 


3.F0RM UA* + STORE IN LS UA 




4.SET COMMAND OUT 




5.FLAGS + OP TO BFR 2 




RESET 




YES 



SEE 

NOTE 



NO /OP 
IN 



YES 



SEE 
NOTE 
1 



NOTE l: TO THE ANY CHECK 
LATCH ON THE END 
STATUS ANALYSIS 
FLOW CHART 





l.BFR 2 TO BUS 
OUT 

2.SET SERVICE 
OUT 



DATA 

HANDLI NG 1 



DATA 

HANDLING 2 



SET UCW STORE LTHI 



l.BFR 2 TO BUS 
OUT 

2.SET SERVICE 
OUT 



SET UCW STORE LTH 



COUNT ZERO 
ANALYSIS 
A7,QV 270 



1. STORE LS COUNT-1 LN LS COUNT 
2.SET OP TO STOP IN LS COUNT 

3. GATE FLAGS + OP TO BFR 2 

4. GATE UA* TO BFR 1 

5.SET I/O STATS TO PCI + STOP 



YES 



SERVICE 
/ \ + NOT 

< >SERVICE 

X/ 0UT 

NO 



POLLING 



NOTE 2! TO END STATUS ANALYSIS 
FLOW CHART-ROUTINE A4 
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DATA ADDRESS FETCH 
4- UPDATE, A1*QV 220 



REQUEST IN 




n 



l.FETCH UCW DA ON SPLIT 
READ— WRITE CYCLE + STORE 
BCW DA IN LS UCW DA WORD 
2.STQRE BFR 1 UA IN LS UA 

3. DAB TO BFR 1 

4. PCI/0P TO I/O STATS 



OP CODE 

l.STOP— STORE UNCHANGED UCW 
DA, UA* TO BFR 1. 

2. INPUT FORWARD-STORE UCW 
DAT! IN UCW DA. + 

3. INPUT BACKWARD-STORE UCW 
DA+1 IN UCW DA. 

4. INPUT SKIP-STORE 

UNCHANGED UCW DA. SET 
I/O STATS TO PCI + 

INPUT SKIP. 

5. OUTPUT-STORE UCW DA+1 IN 
UCW DA. 



/INPUT\ 


SEQUENCE CONTROLS + 


(TO A4j 


INTERRUPT BUFFER 



END STATUS ANAYLSIS 
A4 , QV 250 



. 

. 



YES 



COUNT FETCH 
+ UPDATE, AO 
QV 210 



1. INTERFACE ADDRESS TO BFR 1 

2. FETCH UCW COUNT ON SPLIT READ-WRITE 
CYCLE + STORE UCW COUNT IN LS 
COUNT WORD 

3. FORM UA* + STORE IN LS UA 
4. SET COMMAND OUT 
5.FLAGS + OP TO BFR 2 




4 



NOT ACTIVE + IB FULL 



l.SET BFR 1R = TO 
SEQUENCE CONTROLS 
OF DEVICE END IN 
THE IB 

2.SET COMMAND OUT 



ACTIVE + IB FULL 



l.SET BFR 1R = 

TO SEQUENCE 
CONTROLS OF CH 
END IN THE IB 
2.SET SERVICE 
OUT 



ACTIVE + IB FULL 



l.SET BFR 1R = 

TO SEQUENCE 
CONTROLS OF CH 
END QUEUED 



NOT ACTIVE + 
NOT IB FULL 



ACTIVE + NOT 
r SEQ\ IB FULL 
fCTRLS £ 

JB 



ACTIVE + 
IB FULL 



. 


l.FORM NEW IB 
BYTE 0 = US 


. 


BYTE 1 = 00 
BYTE 2 » BFR 


. 


2 STATUS 
BYTE 3 = 


. 


DEVICE END 
INTERRUPT 


. 


CODE 

2. SET IB FULL 


. 


LATCH 



. . 



l.BUS 


IN TO BFR 2 






SEE 


2.SET 


SERVICE OUT 






NOTE 






V 2 ^ 





CH END OR 
CH END + PCI 



l.FORM NEW IB 
BYTE 0 = UA 
BYTE 1 * 00 
BYTE 2 = BFR 
2 STATUS 
BYTE 3 = CH 
END INTERRUPT 
CODE 

2. SET IB FULL 
LATCH 



l.FORM NEW IB 
BYTE 0 = UA 
BYTE 1 * 00 
BYTE 2 » BFR 
2 STATUS 
BYTE 3 = CH 
END + PCI 
INTERRUPT 
CODE 

2.BFR 1R = SEQ 
CONTRLS OF 
CH END IN IB 
3.SET SERVICE 
OUT 





NOT ACTIVE + IB FULL 




l.SET BFR 1 = TO 
SEQUENCE CONTROLS 
IDLE 

2.SET COMMAND OUT 



CHECK 
HANDLING 
B7,QV 840 



INTERRUPT PREPARATION 
AG,QV 820 



1. GATE CHECK 
BITS FROM BFR 
OUT BUS TO LS 
COUNT 

2. RESET CC FLAG 
IN LS COUNT 



. 

. 

. 

. 



INPUT, SKIP 
\ OUTPUT OR STOP 
< ENTRY > - — 





END 



NOT 

Xl/0\ WLR 
< STATS 



WLR 



SET CH STATUS 
= TO WLR 



I 

STORE LS COUNT 
IN UCW COUNT 



COUNT STORE 
B5, 0 V 460 




COUNT 

FLAG 

TEST 



SILI FLAG ON 



INPUT FORWARD 

STORE LS DA+1 
IN UCW DA 



INPUT BACKWARD 

STORE LS DA-1 
IN UCW DA 



CODE I/O STATS 
1-3 a TO WLR 











L 


l -J 







CODE I/O STATS 1-3 
NOT = TO WLR 



DATA ADDRESS 
STORE, BG,QV 470 



NOTE IS TO OUTPUT DATA HANDLING FLOW 
CHART, ROUTINE A2 



CHART* ROUTINE A3 



CHART* ROUTINE A2 



STOP* SKIP OR 
OUT 



STORE LS DA 
WORD IN UCW 



OP IN + 
STATUS INC. 




END 



l.SEQ CONTROLS I 
FROM BFR 1R 
TO LS DA 
2.ST0RE LS DA 
WORD IN UCW! 



IOP 105 END STATUS ANALYSIS 
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fmpu' 

TO C5 






INFORM UNIT STATUS IN 
M-REG 

2* CODE I/O STATS = TO 
CONTROL UNIT BUSY 



FORM UNIT STATUS 
TO OOO IN L-REG 



* 

I 



FETCH LS COUNT 



TEST I/O + 
CHANNEL END 



'I/OV START I/O 
STATS - 




TEST I/O + NOT CHANNEL END 
OR HALT OR CONTROL UNIT BUSY 



START I/O + NOT 
PROGRAM CHECK 



TEST I/O + NOT CHANNEL END 
QUEUED OR NOT CHANNEL END 
IN THE IB (DEVICE END TYPE 
LOAD 64) 



1. GATE L-REG UNIT STATUS + 
CHANNEL STATUS TO M-REG 

2. F0RM UA*0*0*0 IN L-REG 
(CA IS IN LS R BACKUP) 

3.ST0RE ZEROS IN UCW DA TO 
SET SEQUENCE CTRLS IDLE 
4.SET CPU STATS 2+3 



INFORM UA 1 0 * 0 * 0 IN L-REG 
2. STORE ZEROS IN LS R 
BACKUP (M-REG = UNIT 
STATUS*0*0*0) 

3.SET CPU STATS 2+3 




1 


• Q C 


[set pci channel 

[STATUS IN L-REG 


• 

• 

• 

• 



-.1 



SET PROGRAM CHECK 






1 

SET CHANNEL 


+ PCI CHANNEL 






STATUS = 0 


STATUS IN L-REG 






IN L-REG 



< ENTRY^> 



X. 



INPUT FORWARD 



STORE LS DA+1 
IN UCW DA 



I 



OUTPUT * STOP 
OR SKIP 

STORE LS DA 
IN UCW DA 



INPUT BACKWARD 



STORE LS DA-1 
IN UCW DA 



END 



l.SEQ CONTROLS 
FROM BFR 1R 
TO LS DA 
2.ST0RE LS DA 
WORD IN UCW 



I 

-X 



POLLING YES 




NOT OP IN + 

OT STATUS IN 



L 



o 



l.GATE UNIT STATUS FROM BFR 1 
TO LO 

2* FORM UNIT STATUS* CHANNEL 
STATUS* + COUNT IN M-REG 
3# FORM UA* 0*0*0 IN L-REG 
(CA IS IN LS R BACKUP) 

4. SET CPU STATS 2+3 



l.SET OP = STOP + RESET 
CC FLAG IN UCW COUNT 
2.F0RM UA*0*0*0 IN L-REG 
3.SET LS R BACKUP + M- 
REG « TO ZERO 
4. SET CPU STATS 2+3 




0 



1. GATE UNIT STATUS FROM 
BFR 1 TO LO 

2. FORM UNIT STATUS* 
CHANNEL STATUS* 0*0 
IN M-REGISTER 

3. F0RM UA*0*0*0 IN L- 
REGISTER 

4, SET CPU STATS 2+3 



SET CC 2i 

... I 



DATA ADDRESS STORE 
B6* QV 470 



LOAD 64 PREPARATION 
D5*QV 831 



IBM CONFIDENTIAL 



DATE 9 SEP 65 


MACH. 




MULTIPLEXOR 


FRAME 




FOR MODEL 50 


P.N. 




IBM CORP. SDD 


PAGE 


6 



J 

c 

M 

P 

X 



IOP 106 



LOAD 64 PREPARATION 




JCMPX 56 



YES 



'STATUS > 
VlN / 



IMPUT TO 
STATUS IN 



/INPUT\ 
I TO D2 



YES 



NO /OP 
— < IN 



LSELECT 

VlN V 



OP IN 



YES 



CA FETCH + STORE 
DO*QV 360 



/v 



CC END STATUS ANALYSIS 
A5* QV 350 



RESET ADDRESS OUT 



/UCWX RESET 
< STORE > 



STORE ; 
\LTh/ 

ISET 



/OP-V 
<STATUS 
VIN V 



POLLING 



JIMEOUf 



I YES 



SET CC2 



UNIT 

STATUS 



NOT CHANNEL END 
+ DEVICE END 



CHANNEL END + 
NOT DEVICE END 



CHANNEL END + 
DEVICE END 



SEE I 
NOTE I 
V 1 V 



/CC N 
LATCH 
XET^ 



NOT CMMD CHAINING 
END RECIEVED 



YES 



COUNT * ZERO + 
NOT SILI FLAG 



GATE UNIT STATUS FROM 
BUS INTO BFR 2 



SEQUENCE 

CONTROLS 



rMMn rHATMTMr; 



LS COUNT 
H- FLAGS 



COUNT = ZERO 
OR SILI FLAG 




l.FORM CMMD CHAINING 
END RECIEVED 
SEQUENCE CONTROLS 
IN BUFFER 1 
2.SET SUPPRESS OUT 
3.SET SERVICE OUT 




UNIT STATUS 




INTERRUPT 
BUFFER FULL< 



1. CODE I/O STATS 
FOR CHANNEL END 
ENTRY + WLR 

2. RESET CC FLAG 
IN LS COUNT 



ATTN OR BUSY OR UNIT 
CHECK OR UNIT EXCEPTION 
OR STATUS MODIFIER BIT 
+ NOT DEVICE END 

1. CODE I/O STATS FOR A 
CHANNEL END ENTRY 

2. RESET CC FLAG IN LS 
COUNT WORD 



YES 




FORM CHANNEL END 
QUEUED SEQUENCE 
CONTROLS IN BFR 1 



l.FORM CHANNEL END IN IB 
+ IN THE SEQUENCE 
CONTROLS IN BFR 1 
2.SET SERVICE OUT 



SEE 
NOTE 
V 2 , 



NOTE IS TO END STATUS ANALYSIS FLOW CHART ROUTINE A4. 
NOTE 2! TO ANY CHECK LATCH ON SHEET 2 OF 2. 

NOTE 3J TO ROUTINE A6 ON SHEET 2 OF 2. 

NOTE 4: TO ROUTINE B5 ON SHEET 2 OF 2. r- 

NOTE 55 TO ROUTINE D4 ON SHEET 2 OF 2t 

NOTE .6S TO ROUTINE D3 ON SHEET 2 OF 2. N 




SEE 
NOTE 
v 3 , 



SEE 
NOTE 
V 4 , 



YES / X NO 
>— <STATUS >— 
VIN / 



^ADDRESS, 

YES 



l.INITIATE LOGOUT 
2.SELECT RESET 



I 



TIC ENTRY 
>FROM CCW2 



/INPUT\ 
I TO DO 



LS CA : 

v / 



INVALID 



VALID 



1. FETCH UCW CA + STORE IN 

LS CA ON A SPLIT 
READ-WRITE CYCLE 

2. GATE CHANNEL STATUS TO 

BFR 1 



STORE LS CA+8 IN 
UCW CA 



;status 

Vmodv 



YES 



RESET SELECT OUT 



CC UA COMPARE 
D2* QV 330 



1. GATE UNIT ADDRESS FROM BUS IN 
TO BFR 1 

2. C0MPARE INSTRUCTION UA WITH 
INTERFACE UA 



NOT EQUAL 



X X 

MDRESS> 

V/ 

I EQUAL 



PROGRAM 

CHECK 



/I/ON 

STATS= 



NO PROGRAM 
CHECK 



STORE UCW CA+8 
IN UCW CA 



STORE UCW CA+16 
IN UCW CA 



< OP IN . 

V / 



|CCW1 FETCH 
DliQV 310 



YES 



• • • 



ItSET COMMAND OUT 
2.FETCH LS BACKUP REG 
3 + STORE IN L-REG 
3.SET CHANNEL STATUS = 
TO PROGRAM CHECK IN 
THE LI 



4. SET OP TO STOP + F 
CDA» CC* SILI* + 
SKIP FLAGS IN LO 
5.ST0RE L 0000 PCI/ 
STOP* 0100 0000* 
COUNT IN LS COUNT 



RES 



l.GATE M/OP FROM BFR 2 
TO BUS OUT 
2.SET COMMAND OUT 
3.FETCH LS BACKUP REG 
3 + STORE IN L-REG 
4. SET LI TO ZERO 
5.ST0RE L-REG FLAGS/ 
CODED OP *0* COUNT 
IN LS COUNT WORD 





/ X 

STATUS . 

Xmod/ 

N/ 



1. FETCH CCW 1 LS 

2. GATE UA TO BUS 


CA 

OUT 




1. 


FETCH CCW 1 PER LS 
CA+8 + STORE IN 
LS CA WORD 
GATE UA TO BUS OUT 








2. 






A 






V 





VALID /LS V INVALID 
— — <CA TEST> 



"status ; 

v 

Tyes 



1. STORE ZEROS IN LS 
BACKUP REG 3 
2.SET ADDRESS OUT 
3.SET SELECT OUT 
4. CODE I/O STATS = 
TO PROGRAM CHECK 



1. FORM SPTO + DA IN 
L-REG + LS BACKUP 
REGISTER 3 (SPT 
IS FROM LS CA) 

2. GATE M/OP TO BFR2 



SEE 
NOTE 
< 5 . 



SEE 
NOTE 
< 6 . 
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INTERRUPT PREPARATION r 
A6. QV 820 



NOT ACTIVE + 
NOT IB FULL 



'INPUTS 
TO A6 



ACTIVE + NOT 
^ r SEQ\ IB FULL 

:ctrls +; 

JB 

ACTIVE + 

IB FULL 



/ — “V 

/INPUT\ 
ANY 
CK 



'INPUTS 
TO D3 



INFORM NEW.IB: 
BYTE 0 = UA 
BYTE 1 = 00 
BYTE 2 ■ BFR I 
2 STATUS 
BYTE 3 * 
DEVICE END 
INTERRUPT 
CODE 

2.SET IB FULL 
LATCH 



INFORM NEW IB: 



UA 

00 



CH 



BYTE 0 = 

BYTE 1 = 

BYTE 2 = BFR 
2 STATUS 
BYTE 3 » 

END + PCI 
INTERRUPT 
CODE 

2.BFR 1R = SEQ 
CONTROLS OF 
CH END IN IB 

3.SET SERVICE 
OUT 




NO 



CH END OR 
CH END + 
PCI 




GATE UNIT STATUS FROM 
BUS IN TO BFR 2 



NO PROGRAM 
CHECK 



GATE CHECK 
LATCHES TO 
BFR OUT BUS 



l.GATE CHECK 
BITS FROM BFR 
OUT BUS TO LS 
COUNT 

2* RESET CC FLAG 
IN LS COUNT 




CHECK 
HANDLING 
B7. QV 840 

>*..«« 

UNIT 
STATU 





PROGRAM 

CHECK 

<>• 



UNIT 

STATUS 



l.RESET CC FLAG IN LS 


. 




COUNT 






2. CODE I/O STATS = TO 


. 




CHANNEL END ENTRY + 






NOT WLR 


. 





INFORM NEW IBS 
BYTE 0 a UA 
BYTE 1 = 00 
BYTE 2 a BFR 
2 STATUS 
BYTE 3 a CH 
END INTERRUPT 
CODE 

2* SET IB FULL 
LATCH 





ERROR 



NOT EQUAL 
ZERO 



INPUT. SKIP 
OUTPUT OR STOP 



CHANNEL END 
NOT ERROR 



l.SET SUPPRESS OUT 
2.SET SERVICE OUT 




NO /IB 
FULL 



l.SET SERVICE OUT 
2* FORM IN BFR 1 
SEQUENCE CONTROLS 
= TO CH END IN IB 



FORM IN BFR 1 
SEQUENCE CONTROLS 
a TO CHANNEL END 
QUEUED 



r ^ NOT 
l/0\ WLR 
STATS 



WLR 



SET CH STATUS 
a TO WLR 



J 



l.SET SERVICE OUT 

2. GATE FLAGS/OP FROM 
LS COUNT TO BFR 2 

3. GATE DAB FROM LS 
DA TO BFR 1 

4#SET I/O STATS TO 
PCI/OP 



^DEVICE 
.END, 



YES 



-0- 

I 



COUNT STORE 
B5. QV 460 




SEE 
NOTE 
2 



l.SET SILI FLAG IN 
LS COUNT 

2. F0RM CC END 
RECIEVED SEQUENCE! 
CONTROLS IN BFR 1 

3. C0DE I/O STATS a 
TO CHANNEL AND 
ENTRY + NOT WLR 



STORE LS COUNT 
IN UCW COUNT 






. 

> 



DATA ADDRESS STORE 
B6. QV 470 




YES 



INPUT FORWARD 



STORE LS DA+1 
IN UCW DA 



INPUT BACKWARD 



STORE LS DA-1 
IN UCW DA 



STOP* SKIP OR 
OUTPUT 

STORE LS DA 
WORD IN UCW 



END 

l.SEQ CONTROLS 
FROM BFR 1R 
TO LS DA 
2.ST0RE LS DA 
WORD IN UCW 




NO 



NO 



b^i h i um 



OP IN + 
STATUS I 




YES 



YES 




l.BUS IN TO BFR 2 
2.SET SERVICE OUT 



POLLING 



SEE 
NOTE 
3 



SEE 
NOTE 
4 



SEE 
NOTE 
5 



-> 



CC INITIAL STATUS ANALYSIS 
ANALYSIS. D3 QV 340 



CCW 2 FETCH 
D4. QV 320 



'INPUT\ 
TO D4 



FORM SPT SEQUENCE 
CONTROLS = TO BUSY 
+ DA IN LS DA WORD 



VALID OP 
+ NOT TIC 




TIC 



INVALID OP 



YES 



1 .FETCH CCW 2 PER LS 
CA+4 

2.ST0RE CCW 2 FLAGS/ 
CODED OP.X. COUNT 
IN LS BACKUP REG 3 
OR OLD + NEW PCI 
FLAGS IN LS BACKUP 
REGISTER 3 
3.GATE PCI/CODED OP 
TO BFR 1 

4.SET ADDRESS OUT 
5.SET SELECT OUT 




l.FETCH CCW 2 PER LS 
CA+4 

2.ST0RE CCW 2 FLAGS/ 
000. X. COUNT IN LS 
BACKUP REGISTER 3 
OR OLD + NEW PCI 
FLAG IN BACKUP 
REGISTER 3 
3.GATE PCIOOO TO 
BFR 1 

4.SET ADDRESS OUT 
5.SET SELECT OUT 
6.C0DE I/O STATS 
TO PROGRAM CHECK 



CCW 2 COUNT 
+ FLAG TEST 



INVALID 



CODE I/O STATS a 
TO PROGRAM CHECK 




PREVIOUS 

TIC 



1. STORE SPT OF 0. 
+ DA+4 FROM LS 
BACKUP REG 3 IN 
LS CA WORD 
2.C0DE I/O STATS 
= TO PREVIOUS 
TIC 



SEE 
NOTE 

2 y 




l.CODE I/O STATS = 
TO PROGRAM CHECK 
2.ST0RE LS COUNT 
IN LS BACKUP REG 
3 

3.GATTE PCIOOO TO 
BFR 1 

4.SET ADDRESS OUT 
5. SET SELECT OUT 



SEE 

NOTE 




NOTE l: TO ROUTINE D2 ON SHEET 1 OF 2. 

NOTE 2: TO ROUTINE DO ON SHEET 1 OF 2. 

NOTE 3: TO DATA HANDLING FLOW CHART ROUTINE A3. 

NOTE 4: TO STATUS IN ON SHEET 1 OF 2. 

NOTE 5: TO DATA HANDLING FLOW CHART ROUTINE A2. 
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/INPUTS 




SET UCW STORE LTH 




•COUNT EQUAL ZERO 
ANALYSIS*A7* QV 270 



X 




. 


CCA TEST> 


OUTPUT 




. 


N/ 



MAIN STOR 
PROTECT OR 
INVALID 
ADDRESS CK 



STORE LS COUNT-1 
IN LS COUNT WORD 



l.SET OP TO STOP IN LS COUNT 
2*GATE FLAGS + OP TO BFR 2 
3.GATE UA* TO BFR 1 
4.SET I/O STATS TO PCT + STOP! 




SEE 

NOTE 

a 




SERVICE IN 
+ NOT 

SERVICE OUT 



CA FETCH/STORE 
DO* QV 360 



YES 



INVALID 





TIC ENTRY 
ROM CCW2 
FETCH 




1 . FETCH UCW CA + STORE IN 
LS CA ON A SPLIT 
READ-WRITE CYCLE 

2. GATE CHANNEL STATUS TO 
BFR 1 



STORE LS CA+8 IN 
UCW CA 




YES 



STORE UCW CA+8 
IN UCW CA 



I STORE UCW CA+16 I 
IN UCW CA I 



I 

=<*>* 



+ 



NO X YES 



.STATUS 





CCW 1 FETCH 
Dl* QV 310 



1. FETCH CCW 1 LS CA 

2. GATE UA TO BUS OUT 



1. FETCH CCW 1 PER LS 
CA+8 + STORE IN 

LS CA WORD 

2. GATE UA TO BUS OUT 



VALID 




INVALID 



1. FORM SPTO + DA IN 
L-REG + LS BACKUP 
REG 3 ( SPT IS 
FROM LS CA) 

2. GATE M/OP TO BFR1 



l.STORE LS COUNT IN 
BACKUP REGISTER 3 
2. GATE PCI/OP TO 
BUFFER 1 

3.SET I/O STATS = 

TO PROGRAM CHECK 



-<> 

,1 



PROGRAM NO PROGRAM 

CHECK yi/Q\ CHECK 
— — < STATS 



NEW PCI/STQP* 
STATUS* COUNT 



1. FORM 0000 OLD OR 
0010 OLD CHANNEL 
IN LS COUNT WORD 

2. GATE NEW FLAGS/OP TO BFR 2 

3. NEW PCI/OP TO I/O STATS 

4. GATE UA# FROM LS UA WORD TO BFR 1 




l.OLD FLAGS/OP FROM LS COUNT TO BFR 1 
2.ST0RE LS BACKUP REGISTER 3 IN L REG 

3. F0RM NEW FLAGS + OLD OR NEW PCI/ 

OLD OP* 0000 OLD CHANNEL STATUS* 

NEW COUNT IN LS COUNT WORD 

4. NEW FLAGS/OP TO BFR 2 

5. DAB FROM LS DA TO BFR 1 

6. NEW PCI/OP TO I/O STATS 



FORM SPT* SEQUENCE 
CONTROLS » TO BUSY* 
+ DA IN LS DA WORD 



Y 


. 


RESET CC + SILI 


YES 




FLAGS IN LS 




. 


COUNT + BFR 2 



I 



TIC 




< M/OP 



VALID OP + 
NOT TIC 



CCW 2 
FETCH 
D4*QV 320 






YES 



INVALID 



f 



PREVIOUS 

TIC 



SET I/O STATS = 
PROGRAM CHECK 



FETCH CCW 2 
PER LS CA+4 



l.STORE IN LS CA THE 
LS BACKUP REG 3 
SPTO + DA+4 
2.SET I/O STATS = TO 
PREVIOUS TIC 



l.STORE LS COUNT IN 
LS BACKUP REG 3 
2.GATE PCI/OP TO 
BUFFER 1 



1. GATE CCW 2 FLAGS/ 
000* X* COUNT TO L 

2. GATE OLD CHANNEL 
STATUS FROM BFR 1 
TO LI 

3.ST0RE FLAGS/000* 
OLD CHANNEL 
STATUS* COUNT IN 
LS BACKUP REG 3 
OR OLD + NEW PCI 
TO BFR 1 



CCW 2 COUNT + 
FLAG TEST 




VALID 



INVALID 



SET I/O STATS = 
TO PROGRAM CHECK 



+ 



SEE 




DATA CHAINING r 


NOTE 

k m i 




• D7* QV 370 • ] 




YES V'OP 




YES 



SEE 
NOTE 
1 



NOT OP IN + 
NOT STATUS IN 




POLLING 



NOTE i: 
NOTE 23 

NOTE 33 
NOTE 43 
NOTE 53 



TO DATA HANDLING FLOW CHART ROUTINE A3. 

TO ANY CHECK LATCH ON COMMAND CHAINING 
FLOW CHART SHEET 2 OF 2. 

TO COMMAND CHAINING FLOW CHART ROUTINE A5. 

TO END STATUS ANALYSIS FLOW CHART ROUTINE A4. 
TO DATA HANDLING FLOW CHART ROUTINE A2. 




l.BUS IN TO BFR 2 
2.SET SERVICE OUT 
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TEST I/O 
UNIT SELECT 2 
ROUTINE C 7 
Q V 530 



t 



NOTE IS TO LOAD 64 PREPARATION FLOW CHART 
ROUTINE D5 

NOTE 2S TO LOAD 64 PREPARATION FLOW CHART 
ROUTINE C5 



POLLING 

< 




CHANNEL END 
IN IB 




BUSY OR CC END 
RECEIVED 




CHANNEL END 
QUEUED 




DEVICE END OR 
ATTENTION IN 
IB 


1 











1. FETCH UCW COUNT 
TO LS COUNT 
2*FETCH IB (LS IB) 




RESET IB 
FULL LTC 



1. FETCH UCW CA TO 
LS R BACKUP REG 

2. F0RM UNIT STATUS 
CHANNEL STATUS + 
COUNT IN L REG 

(USE UNIT STATUS 
FROM THE IB) 



1# FETCH UCW UA 
2.C0DEI/0 STATS 
TO TEST I/O + 
CHANNEL END 
QUEUED 



RESET IB FULL 

- J 

l 



<> 



TEST I/O 
= UCW UA 




O 



l.SET ADDRESS 
OUT 

2.SET SELECT 
OUT 

3.C0DE I/O STAT 
TO TEST I/O + 
DEVICE END OR 
ATTENTION IN 
INTERRUPT BFR 
OR IDLE 



l.FETCH UCW CA 
+ STORE IN 
IN LS R 
BACKUP REG 
2.SET ADDRESS 
OUT 

3.SET SELECT 
OUT 





CHANNEL END 
+ NOT PCI 



CODE I/O STATS 
TO TEST I/O + 
CHANNEL END IN 
IB + NOT PCI 



CODE I/O STATS 
TO TEST I/O + 
CHANNEL END IN 
IB + PCI 



0 



J 



YES 





r 



O 



1 



FETCH UCW COUNT + 
STORE IN L5 COUNT 




YES 




TEST I/O UA 
COMPARE 

ROUTINE C2*QV 540 



RESET 

COMMAND 

OUT 




l.GATE UNIT STATUS 
FROM BUS IN TO BFR 1 
2.SET SERVICE IN 



BUSY OR STATUS 
MODIFIER BIT 
ALONE 



YES 



STORE ZEROS 
IN UCW DA 




YES 



CHANNEL END 
QUEUED 



YES 



TEST I/O 
STATUS ANALYSIS 
ROUTINE C3*QV 550 






l.SET-CCO— 
2.SET STAT 3 



1. FORM UNIT STATUS* 
CHANNEL STATUS* + 
COUNT IN L REG 

2. CODE TEST I/O + 
NOT CHANNEL END 
QVEUED OR CHANNEL 
END IN IB I/O 

STATS 



POLLING 



0 

I 



> 




r 
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RESET 

ADDRESS 

OUT 



NOTE IS TO LOAD 64 PREPARATION FLOW CHART 
ROUTINE C5 

NOTE 25 TO LOAD 64 PREPARATION FLOW CHART 
ROUTINE D5 
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CH SELECT 
1 LATCH 
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SET STAT 0 FOR CH 0-| 
SELECT CH 0- 



SET STAT 0 BY I/O 



REPLY 
LTH 0 



SET CONDITION CODE 0 



REPLY 0*2*QR 3 



SET STAT 1 BY I/O 



SET STAT 2 BY I/O 



SET CONDITION CODE 1 
TEST CHANNEL — - 0 



SET STAT 3 BY I/O 



SET CONDITION CODE 2— ❖ 



DELAYED I/O INSTRUCT IOI\K>- 



SET CONDITION CODE 3 



FOUL NOT BUSY CH O-^ 
BUSY ON FOUL ❖ 




REPLY LATCH 



SET CONDITION REGISTER 
POSITION 3 BY I/O 



❖-REPLY LATCH PULSE 



CONDITION REG SET CONDITION CODE 



2 OFF AND 3 OFF 




2 ON AND 3 OFF 




2 OFF AND 3 ON 




2 ON AND 3 ON 





IOP III INITIATE 1-0 OPERATION (SHEET 3 OF 3) 
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LS(CA) 



TRANSFER(QVIOI) 

LS(DA) 



LS(C) 



LS(CA) 



CCWKQV102) 

LS(DA) 



LS(C) 



LS(L) 



START l/0(GtV100) 
LS(R) 



LS(M) 



SP 1 0000 1 CA 




SPl OXOXl DA j 


0 3 7 3X 0 3 7 3X 




LS(DA) TO R! 
L TO LS 



UA| 10 1 CNT 



SP| 



I CA 



0 7 15 



31 



0 3 



31 



SPl 


i 


DA 


0 3 


7 


31 


LS(CA) TO 
L TO LS 


R 



UA | | CNT 



UA | 



SP 1 0000 1 CA 



OP I 



DA 



15 



31 



31 0 3 



31 



0 7 



31 




YES 



r 




SKIP 1 
CCW 



YES 



R(DA) TO SAR 


Y 


R(DA) TO SAR 


LS(CA) TO L 




LS(C) TO L 



r 



STAT 
MODIFIER 
BIT 



R(CA) +8 TO 




R ( CA ) TO SAR, 


SAR, L,LS 




L« LS 


LS(UA + CNT) TO 




LS(UA + CNT) TO 


R 




R 



■LOG WD A ■ 
(CCWX, CCO) 












L ( 0—7 ) — >MOVER 




1 


L ( C A ) TO LS 




L(UA) TO CHAN 




— >L(0-7) 1 


LOG WD 4 


L(UA) TO ADDER t 


(DATA) 




DTC(UA) 




0NE'S(5,7)<J 


<CCWX,CCO) 


LS 


DTC(UA) 








DTC(UA) 




DTC(UA) 



R(UA + CNT) TO 
CH, LS 



THE POSITION REGISTER 
CONDITIONS ' ' CCW-I TYPE * ' 
WHILE ROS IS PERFORMING 
THE CCW— 1* START I/O, OR 
TRANSFER ROUTINE TO 
SERVICE THE CHANNEL. 



/** CCW-1 TYPE **\ 
FROM POSITION 
REG. (GB181) 

_y 



v 



I 



DTC(UNIT ADDR) — »CHAN 




B 

SHEET 2 



„ STEP 0 
C-'-CLQCK AO 



I 



r 



BRING UP »»CCW-| 
1 PREPARE 
CHAN 1 1 (GF131) 



BRING UP »»CCW- 
1 UA TO B»» 
(GF131 ) 



NO S CHAIN 
DATA LATCH 
SET 

S 



YES 



reset: if rd and wr latches 

<GTX2X)I STAT B AND STOP REL 
LATCHES(GVXXX) J EOR-1 LATCH 
(GCIS1)» STOP AND STOP RTNE 
LATCHES (GV101) I B FULL AND 
LS FULL LATCHES ( GC171 ) ? 
STATUS NEXT LATCH(GT161) I RD 
RDY, WR RDY, FIRST BYTE, AND 
FIRST WORD LATCHES (GF161) 



GATE UNIT ADDR 
TO B REGISTER. 
(GMX01) 



I 



I 



V 



®IQP 201 CCW-1 TYPE OP (SHEET 1 OF 4) 



C 

SHEET 2 




SHEET 2 




SHEET 2 



CCW-1 TYPE OP 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# SDD PAGE 4 
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SHEET 1 SHEET 1 SHEET 1 SHEET 1 




L5(CA) 



0 3 



31 



LS(DA) 



LS(C) 



|SP| 0101 1 cT | | UA \ 



LS(CA) 



1 I SP | 0101 | DA 



SP | 0000 | CA | f 



0 



31 0 3 



31 



0 3 



31 



UA 



LS(DA) 

~ i 





LS(CA) 


LS(DA) 


LS(C) 


• IOP 201 CCW-1 TYPE OP (SHEET 2 OF 4) 


SPl I CA 




UA I 




SP 1 0000 1 DA 



0 3 



0 3 



1 



31 



LS(C? 

I SP | 0101 | DA | 

L— — — — — I 

0 3 7 31 



CCW-1 TYPE OP 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# SDD PAGE 5 



S 

4 

0 

0 

1 
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SHEET 2 




NO / CHAIN 
DATA LATCH 
SET 



YES 



BRING UP *» CCW-1 OP TO GP ,f (GF131)* 



NO 




BRING UP 
"CCW-1 OP TO 
B" (GF131 ) 



YES 



NO 



RD 

BKWD OP 
JDN AL-TO-CH. 
BUS 



YES 



EXAMINE BITS 
IN POSITIONS 

04- 07 ON AL-TO- 
CH BUS* SET GP 
REG POSITIONS 

05- 07 AS 
INDICATED 
(GC121) 



BRING UP "NO 
TIC* RESET 
D1 1 1 ( GF131 ) 




YES 



RESET D1 
LATCH (GA161) 



■>k« 



NO 



RESET LW REG 
(GC141 ) ? GATE 
OP TO BO 
(GM10X) 



BITS IN POS 
30 AND 31 
(DAB) ON 
AL-TO-CH BUS 
SET GP 
REGISTER 
POSITIONS 
01 AND 02 
RESPECTIVELY 
(GC101) 



INVERT BITS 
IN POSITIONS 
30 AND 31 ON 
AL-TO-CH BUS# 
SET GP 
REGISTER 
POSITIONS 
01 AND 02 
RESPECTIVELY 
(GC101 ) 




BRING UP " TRANSFER 
OP ON MOD* 1 (GF131)* 



<« 



CHAIN DATA LATCH 
NOT SET AND BIT 
POSITIONS 04-07 - 
ON AL-TO-CH 
CONTAIN ZEROS 
(GF131) 




NO 



NO 



BRING UP 
"CCW-1 SET 
STAT 2* f (GF131 ) 




BRING UP 
"CCW-1 SET 
Cl* * 

(GF131 ) • 



BRING UP "CH 
DETECT PROGRAM 
CHECK 1 1 (GF131) 



YES 






BRING UP "CH DETECT 
PROGRAM CHECK ♦ * ( GF131 ) t 



SET PROGRAM CHECK LATCH! 
(GE111)* 



SET STAT 2 
(GB121 ) 









RESET WRITE 




SET Cl 


CHAIN PROCEED 




LATCH (GA141) 


LATCH (GT131 ) 













SET PROGRAM 
CHECK LATCH 
(GElll)* 



Y 



STEP 1 



CLOCK A1 

l . — I 

I 



BRING UP * • CCW-1 CC1 CLOCK Al" (GF131) 



YES 



WITH THE BYTE COUNTER READY LATCH 
SET* THE CHANNEL CAN SET THE BYTE 
COUNTER WHEN THE INTERFACE PERMITS* 
FOLLOW STEPS TO SET THE BYTE COUNTER 

RM cuecT 


1 




SET BYTE COUNTER 
READY LATCH (GF141) 




uixi once I o* 


i 

i 




SET FINISH 
LATCH (GB161) 
AND RESET 
EOR-2 LATCH 
(GC151) 



NO 



GATE GP REGISTER POSITIONS 
05-07 TO OP REGISTER (GC131) 



I 







B 



END 



J 




BRING UP "CCW-1 
SET D1 (GF141) 



SHEET 4 




•IOP 201 CCW-1 TYPE OP (SHEET 3 OF 4) 



CCW-1 TYPE OP 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH# 2050 

FRAME 

P*N* 

IBM CORP. SDD PAGE 2 



H*00 -P</) 
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• I0P 201 CCW-1 TYPE OP (SHEET 4 OF 4) 



CCW-1 TYPE OP 
(SELECTOR CHANNEL ) 

DATE 27 JUN 66 MACH. 2050 

FRAME 

P.N. 

IBM CORP. SDD PAGE 3 



HOO-P(fl 
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CCW2 (QV103) 



LS(CA) 


LS(DA) 


LS(C> 


SPlOOOOl CA 


| UA | 




SPlOlOll DA j 



0 3 7 31 0 7 31 0 3 7 31 




•I0P 202 CCW-2 ROUTINE (SHEET 1 OF 6) 



CCW-2 ROUTINE 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH. 2050 

FRAME 

P.N. 

IBM CORP. SDD PAGE 3 







IBM CONFIDENTIAL 



S4002 06 



SHEET 1 



SHEET 1 



SHEET 1 






OFF 



YES 



HIGH 

'SPEED CHAN 0R V NO 
256 SUB CHAN > 
OPTION 



COMP I/O < DAB) TO 


PROTECT UA 


I/O (DAB) TO R 


R 1 TO W<6> TO 


FIELD WHEN 


1 TO W(6) TO 


L(8— 16) 


COUNT UP- 
DATING 


L(8— 16) 





0 »S TO L(0— 7) 






DTC 




DTC 



L(CNT) +R ( DAB ) 
TO Rt LS(C) 
LS(C) TO L 
DTC(LWi CNT) 



LOG WD 4 
<CCW2f CC2) 



L (CNT) +R ( DAB ) 
TO Rf LS(C) 
O f S TO L(0-7) 
DTC(LWt CNT) 



L 



i 

V 



1»S TO M 
0*S TO L(8-15) 



'BREAK OUT 



WAIT 




■ 



1 1 

V V 


— * — ■ — 

V 


EMIT 1000 TO L 
(16-23) M( ALL 
ONESJ-L TO M 






■ 

TIME OUT 




/ V 

NO V'STAT 0 OFF V YES 



V 



/ BREAK OUT 







J 




BRING UP 
"CCW-2 FLAGS 
TO GP»« 
(GF151 ) 



reset: 

FIRST BYTE 
LATCH(GF161 ) 

GP REG 

POSITIONS 03-04 
(GC101 ) 

GP REG 

POSITIONS 05-07 
(GC121) 



GATE AL TO CH 
BUS POSITIONS 
0-3 TO GP REG 
POSITIONS 08-11 
(FLAGS). 

A «»1»» IN 
POSITION 4 OF 
THE AL TO CH 
BUS SETS PCI 
POSITION OF 
FLAG REG 
(GC161) 




BRING UP »*RD 
RESET CDA 
FIRST BYTE 
LATCH • f 
(GA161 ) 



RESET CDA FIRST 
BYTE LATCH 
(GT161) 






DTC(LWf CNT)— >CHAN 



V 



STEP 2 



LS(CA) 




LS(DA) 




LS(C) 


SPlOOOOl CA 




SPlOlOll DA 




UA | 10 1 CNT 


0 3 7 31 ( 


) 3 7 31 ( 


) 7 15 31 



•IOP 202 CCW-2 ROUTINE (SHEET 2 OF 6) 




SHEET 3 



CCW-2 ROUTINE 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH. 2050 

FRAME 

P.N. 

IBM CORP. SDD PAGE 4 
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SHEET 2 




BRING UP ' ' CCW-2 COUNT 
TO GP" (GF151 ) 



GATE AL TO CH BUS POSITIONS 
30-31 TO GP REG POSITIONS 
03-04 (END REG) (GC101) 



GATE AL TO CH BUS POSITIONS 
8-10 TO GP REG POSITIONS 
05-07 (LAST WORD) (GC121) 



CLOCK A1 



SET FINISH LATCH 
(GB161) 




YES 



BRING UP ' ' CCW-2 
CD READ" 

(GF151) 



BRING UP ' ' CCW-2 
SET WR CHAIN 
RDY" (GF151) 



SET C4 LATCH 
(GA151) 

RESET L1W, 
L2W, AND L3W 
POSITIONS OF 
LW REG 
(GC141 ) 



SETS 

WR CHAIN RDY 
FIRST WORD 
FIRST BYTE 
AND 

WR READY 
LATCHES 
(GF161 ) 



BRING UP "CCW-2 SET 
Cl "(GF151) 



//////////////////////////////////////////////////////////////////////////-/ 

■wr"chain"rdy"""" / 

■ANDCWRICHAIN ■ / 



/ note: 

/ IN WRITE CHAIN DATA 
/ OPERATIONS* CHANNEL 
/ PREFETCHES CONTROL 
/ WORDS AND TEMPORARILY 
/ STORES CONTROL DATA 
/ IN THE GP REGISTER. 

/ WHEN IF CONTROL 
/ CIRCUITS SET THE WRITE 
/ CHAIN PROCEED LATCH 
/ AND CONDITIONS" IF REQ 
/ TRANSFER ' ' , CHANNEL 
/ GATES CONTROL DATA 
/ FROM GP REGISTER. 



■PROCEED LATCHES 
■SET AND** IF REQI 
■TRANSFER* * 
■ACTIVE. 



iai 



BRING UP »» CCW-2 
WR CHAIN DATA 
TRANSFER* ♦ 
(GF171) 



SET B CLOCK 
LATCH (GA121 ) 



DEGATE 

** SERVICE IN** 



BRING UP 
B CLOCK DELAY 



RESET B CLOCK 
LATCH (GA121) 



RESET WR CHAIN 
RDY LATCH 
(GF161) 



GATE GP POSITIONS 01-02 TO 
BYTE COUNTER (GClll) 

GATE GP POSITIONS 03-04 TO 
END REG (GClll) 

GATE GP POSITIONS 08-11 TO 
FLAG REG (GC161) 

RESET LlWf L2Wt AND L3W 
POSITION OF LW REG (GC141) 
RESET EOR-1 LATCH (GC151) 
RESET CD LATCH (GF111) 






/////////////////////////////////////////////////////////////////////////Z7 



INST 

SCAN LATCH 
SET 

(GF1U)/ 

X ' 

YES 



BRING UP ** CCW-2 
REQUEST INTERRUPT 
(GF151 ) 



NO 



BRING UP * »SET 
SIM CHECK** 
(GF151 ) 



BRING UP »» CCW-2 
SET C3 * * (GF151 ) 



SET Cl LATCH (GA141) 
SET C4 LATCH (GA151) 



SET REQ REG 1 
(GB101) AND 
REQ REG PRI 3 
(GB151) 



SET C3 AND C4 
LATCHES ( GA151 ) 



SET SIMULATE 
CHECK LATCH 
(GC131) 



B 



SHEET 4 



• IOP 202 CCW-2 ROUTINE (SHEET 3 OF 6) 



IOP CCW-2 ROUTINE 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH. 2050 

FRAME 

P.N. 

IBM CORP. SDD PAGE 5 



S 

4 

0 

0 

2 
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SHEET 3 



B 




* STEP 3 * 




NOTE 2S 

WRITE TYPE OP* 
CHAIN DATA 
LATCH SET* NO 
CH CHECKS* D1 
LATCH SET* AND 
WR CHAIN PROCEED 
LATCH SET 



NOTE 3: 

C4 LATCH SET* 
BC RDY LATCH 
NOT SET* AND 
NOT CLOCK STEP 
CONTROL TIME# 



YES 




BRING UP *♦ CCW-2 
BC MOD REQ* » 
(GF171) 



BRING UP ' ' CCW-2 
WR CD REQ TRA ' ' 
(GF171) 



SET REQ REG 3 
(GB101 ) AND REQ 
REG PRI 2 (GB141) 



YES 



YES 




BRING UP "CCW-2 CC3 
CLOCK AO" (GF171) 



BRING UP "SET 
INST INHIBIT" 
(GF171) 



BRING UP ' 'CCW-2 
CC3 SET FIRST 
BYTE LATCH (GF171) 



GATE GP POSITIONS 
03-04 TO END REG 
( GC1X1 ) 

GATE GP POSITIONS 
08-11 TO FLAG REG 
(GC161) 

SET FIRST WORD LATCH 
(GF161) 



1 










SET INST 
INHIBIT LATCH 
(GD131) 




SET FIRST 
BYTE LATCH 
(GF161) 








SET C3 

LATCH (GF151) 


i 


i 






i 



NO / CHAIN 

CHECK LATCH 
SET 



YES 



BRING UP "CCW-2 
CHAIN CHECK 
SET C3" (GF171 ) 




BRING UP "CCW-1 
BC MOD REQ" 
(GF141) 



SET BC MOD 
ENABLE LATCH 
(GR141) 



“t 



YES 



BRING UP "CCW-2 
START A CLOCK ' ' 
(GF171 ) 



START A-CLOCK 
(GA101 



I 

Y 

->■ 

I 



STEP 3 








CLOCK AO 






C 




CWFPT C 




SET L1W POSITION 
OF LW REG (GC141) 



IOP 202 CCW-2 ROUTINE (SHEET 4 OF 6) 



IOP CCW-2 ROUTINE 
(SELECTOR CHANNEL) 
DATE 27 JUN 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# SDD PAGE 



S 

4 

0 

0 

2 




IBM CONFIDENTIAL 




S4002 09 



t n rrr r r i ill l l i li l i mi 



NOTE IS 

GP 05* 06 i OR 07 
NOT L1W' L2W OR L3W 

L1W 

NOT ER ■ 00 

ER LESS THAN BC 

L1W 

NOT ER ■ 00 
BC EQUALS ER 




XOP CCW-2 ROUTINE 
(SELECTOR CHANNEL) 
DATE 27 JUN 66 MACH* 2050 



? 



FRAME 

P#N# 

IBM CORPt SDD PAGE 



7 



WOO -Pen 
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SHEET 5 






STEP 3 

CLOCK STEP CONTROL 



• TOP 202 
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WRITE FETCH (0V104) 



LS(CA) LS(DA) LS(C) 




6 



YES 




NOTE i: 

NOT B REG FULL* PROGRAM 
CHECK LATCH NOT SET* 

NOT GP 05 OR 06* AND 
NOT CPU PROGRAM CHECK 



BRING UP »»C 
EMPTY WRITE 
FETCH REG* ♦ 
(GG151) 



SET REG REG 0 
(GB101)* REG 
REG PRI 2 
(GB141) * STAT 2 
(GB121) 



BRING UP 
"CONTIG WR 
FETCH REQ" 
(GG151) 






SET REG 
(GB101) 
REG REG 
(GB141) 


REG 0 
AND 
PRI 2 



V 



■)?<■ 



T 



V 



B 




SHEET 2 



#IOP 203 WRITE FETCH (SHEET 1 OF 4) 



WRITE FETCH 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH# 2050 

FRAME 

P#Nt 

IBM CORPt PAGE 3 



WOO-Pl/l 
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SHEET 1 SHEET 1 




01004* </l 
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SHEET 2 



"i 



SHEET 2 



D 

N/" 



STEP 1 
CLOCK STEP 
CONTROL 



I0S2« NOT HS CHAN 




I0S2 AND HS CHAN 



NOT I0S2 
NOT HS CHA 




C2 \ NO 
LATCH 
.SET. 



YES 



SDR (DATA) TO 
CHAN 

R TO LS(DA) 
LS(DA) TO L 
DTC(DATA) 

1 




SDR (DATA) TO 
CHAN* 
LS(DATA) 
DT(DATA) 




SDR (DATA) TO 
CHAIM 

RESET L(0-7) 
DTC(DATA) 



BRING UP **WR 
SET WRITE RDY f 1 



SET WRITE READY 
LATCH 
(GF161) 



IDTC(DATA)— >CHAN 




I 



^IrEaK out 



LSI DA ) 1 
R(t>A) TC 


ro l 

3 LS(DA) 






f BREAK OUT A 

v ; 



ONES TO M 
0«S TO L(8-15> 




SHEET 4 



E 

SHEET I 



• IOP 203 WRITE FETCH (SHEET 3 OF 4) 



WRITE FETCH 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# PAGE 5 



GiOO 4*in 
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SHEET 3 







STEP 2 CLOCK 
STEP CONTROL 



BRING UP »»WR 
RESET B ALMOST 

changed » • 

(GG151) 



1 




RESET B 

latch 

(GG13I) 


AC 




• IOP 203 WRITE FETCH (SHEET 4 OF 4) 



WRITE FETCH 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH# 2050 

FRAME 

PtNt 

IBM CORPt PAGE 6 



01004 ±<n 
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^ LS WRITE 





LOCAL STORE WRITE 
(SELECTOR CHANNEL ) 
DATE 27 JUN 66 MACHt 2050 



• IQP 204 LOCAL STORE WRITE 



FRAME 

P*N« 

IBM CORP« SDD PAGE 



21 



-poo -p</> 
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READ STORE QV105 



LS(CA) 



LS (C) 



SR 1 0000 1 CA 



SP 1 0101 1 



DA 



UA | 10 1 CNT 




0 3 



31 0 3 



31 



15 



31 






IOP 205 READ STORE (SHEET 1 OF 2) 




READ STORE 
(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH® 2050 

FRAME 

P#N# 

IBM CORPt SDD PAGE 2 



(noo4*</> 
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SHEET 1 




SHEET 1 
B 





SHEET 1 






R(CNT)~4 TO L 
LS(DA) TO R 
DTC(Llt2t3W) 




R(CNT)-4 TO Lt 
AND LS(C> 

LS(C) TO R 
DTC(DATAtLlf2?3W) 




R(CNT>-4 TO Lt 
AND LS(C) 

LS(C) TO R 
DTC(Llt2t3W) 




STEP 1 
(GA131) 














a 

■ 


i ■ 

i ■ 


■■■■■I 


1 ■ 

I «DTC ( DATA t LI 1 2 1 3W y — >CHAN 


i 



CH(DATA) TO SDR 
R(DA) TO LS(DA) 
LS(DA) TO L 



R(DATA) TO SDR 
LS(C) TO R 
L(DA) TO LS(C) 



.<• 

V 



r 



R(DA) TO LS(DA) 
LS(DA) TO L 



1 



BRING UP RD B TO CHOB (GG111)« 
BRING UP "B TO ADDER LATCH 1 f 
(GM101)t GATE B REG TO CHAL# 



STEP 1 



CLOCK AO 



I 



V 



BREAKOUT 



BREAKOUT 




IOP 205 READ STORE (SHEET 2 OF 2) 



o 

i 

STEP 1 



CLK A1 




I 



STEP 1 

CLOCK STEP CONTROL 




READ STORE (SELECTOR CHANNEL 
DATE 27 JUN 66 MACH* 2050 

FRAME 

P.N. 

IBM CORP* SDD PAGE 3 



UlOO -P</» 
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r-> 



BRING UP 

"LS REQUEST * • 

(GG101) 



"LS REQUEST" 

>T0 COMMON CHANNEL 
(KE251* 271* 221) 



\CC STEP 0 



"LS ENABLE" FROM 
COMMON CHANNEL ■■■■>■ 
(KE231* 261* 281) I 



SET LS ENABLE 
LATCH (GG131) 



BRING OP 
' 'COMMON CH LS 
ENABLE ' ' 
(GG131) 



READ-TYPE OP AND 
/READ READY LATCH 
1 IS SET 



BRING UP "READ 
RESET PRIORITY 
1 (GG101). 

RESET PRIORITY 
1 REQUEST REG 
(GB141). 



J 



(SEE NOTE) 



"LS DTC" FROM | 
COMMON CHANNEL 
(KE481 ) I 



BRING UP "READ 
LS B TO CHOB" 
(GG101) 



NOTE 



B FULL LATCH 



* 


I 


\ YES 






LS READ ROUTINE (QV109) 
DTC GENERATED IN CC 
FROM LS REQUEST • DOES 
NOT RUN CLOCK t BUT 
DIRECTLY GATES B REG 
TO CHOB# LS READ 
ROUTINE TAKES CHAL 
TO R TO LS (DATA) 



RESET B FULL 




GATE DATA IN B 




IIIIBIL 

RESET B ALMOST 

changed latch 


LATCH AND SET 




register to 




LS FULL LATCH 




CH-TO-AL BUS 




(GG131) 


(GC171) 




(GM101) 





"NOT ITD-2t" 

"BC EQUAL 03Bt" 
"SERVICE INt" AND, 
STOP LATCH NOT SET \ 




BRING UP 
"READ RESET LS 
ENABLE » » 

(GG101) • RESET 
LS ENABLE LATCH 
(GG131)# 



END 



\"ITD-lt" "NOT ITD-3t" 

"BCB EQUAL 00* " "SERVICE INt" 
AND STOP LATCH NOT SET 



»IOP 206 LOCAL STORE READ 



LOCAL STORE READ 
(SELECTOR CHANNEL) 
DATE 27 JUN 66 MACH# 2050 

FRAME 

P#N# 

IBM CORP# SDD PAGE 



5 
4 
0 
0 

6 
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COMPARE 

(SELECTOR CHANNEL) 

DATE 27 JUN 66 MACH# 2050 

FRAME 

P«N« 

IBM CORPt PAGE 2 



>IOO<P(fl 
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UA FETCH (QV110) 
L 

UA | 

0 7 31 



WAIT 



L (UA) TO AL-CH BUS LOG WD 4 
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(GY131 ) 



K" — — — — J 



BRING UP 
* f START CLOCK 
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START CLOCK A 
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#■———# 
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SET UNIT 
ADDRESS TO BUS 
OUT LATCH 
(GV121 ) 



BRING UP "UNIT 
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OUT" (GV121 ) # 
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BUS OUT LINES 
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STEP 0 

CLOCK STEP 
CONTROL 



SET UNIT SELECT 
ADDRESS OUT 
LATCH (GV121) 
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♦•ADDRESS OUT" 
IF TAG LINE 
(GS131) 



* STEP 1 * 
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*CLOCK Al* 



BRING UP "UNIT 
SELECT OUT ♦ ♦ 
(GV121) 



SET C2 LATCH 
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DROP "IF START 
CLOCK A" 

( GV121 ) • 

STOP CLOCK A 
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"IF PARITY OUT 
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SET REQ REG 1 
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SET STOP 
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RELEASE LATCH 




"REQUEST END 
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UPDATE 


REQ REG STAT 0 








ROUTINE ' ' 
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SET REQ REG 3 
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(GB101). 
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PRI 3 (GB151). 
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OPERATION. 
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THE INTERRUPT ROUTINE. THE 
CHANNEL CONDITIONS "CHANNEL 
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INTERRUPT ROUTINE. 
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RESET UNIT SELECT ADDRESS 
OUT LATCH (GV121M DROP 
" ADDRESS OUT" IF TAG 
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* » IF HALT 
DISCONNECT* * 
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BRING UP "UNIT 
1-0 INTP3 
(GV141 ) 



** OPERATIONAL IN** 
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/PARITY OUT**. 
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OF » ’SERVICE 
OUT** (GS131 ) I 
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"ADDRESS OUT" 
<G$131)I SET 
SIM CHECK LATCH 
(GG131 ) . 



BRING UP "UNIT 
SELECT P3 
INTERRUPT* ’ 
(GV151) 






BRING UP "UNIT 
SELECT PARITY 
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SET STOP 
RELEASE LATCH 
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OUT LATCH 
(GR101) 
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REG 
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STAT 
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/"SELECT OUT". 
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* ’OPERATIONAL 
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"ITD-2" AND 
/"NOT ITD— 3* ♦ 



BRING UP 
"SET COMPARE" 
(GV131 ) 





DOES ADDRESS ON BUS 
/IN LINES EQUAL 
L ADDRESS TRANSMITTED 



BRING UP "IF 
CONTROL PARITY 
CHECK" (GT111 ) 



SET IF CONTROL 
CHECK LATCH 
( GE101 ) 



BRING UP "IF 
COMPARE NOT 
EQUAL" (GR151) 



BRING UP 
"IF COMPARE 
EQUAL" (GR151) 



BRING UP "IF 
HALT END" 
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ASSUME THAT THE MODE SWITCH / 

IS SET TO IGNORE MODE. WHILE 
CLOCK A ADVANCES THROUGH TWO 
MORE CYCLES* THE IF CONTROL 
CHECK LATCH INITIATES THE IF 
DISCONNECT SEQUENCE AND REQUESTS 
THE END UPDATE ROUTINE. NO 
SIGNIFICANT ACTIONS OCCUR DURING 
THE CLOCK CYCLES. 
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ADDRESS TO BUS 
OUT LATCH 
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SET IF CONTROL 
CHECK LATCH 
(GE101 ) 



BRING UP 
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RESET UNIT 
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OUT LATCH 
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1-0 INHIBIT 
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SELECT P3 
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C3 LATCH 
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SET C3 LATCH 
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THE IF CONTROL CHECK LATCH IS SET IN 
THE TEST 1-0 OPERATION. WHILE CLOCK A 
ADVANCES THROUGH ONE CYCLE, THE CHANNEL 
SETS THE C3 LATCH, REQUESTS THE 
'INTERRUPT ROUTINE, AND BEGINS THE RESET 
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OCCUR DURING THE CLOCK CYCLE. 
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OUT LATCH 
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BRING UP 
' 'PARITY IN B" 
(GT111) 
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SET STATUS 
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.» 'STATUS IN' ' 



NOT TEST 1-0 IF CONTROL i 
CHECK LATCH SET MODE / 
SWITCH IN IGNORE MODE 



BRING UP "IF 
RESET START" 
(GS151) 




SET STOP 
RELEASE LATCH 
(GV111) 



BRING UP "UNIT 
SELECT STATUS 
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SELECT SERVICE 
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SHEET 3 
SHEET 4 



GATE STATUS 
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POSITION 0 OF 
C REGISTER 
(GMU1) 
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/* 'STATUS 3 X. 
ftOT 0. If 2f 6f. 
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N/ 
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» 'OPERATIONAL 
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— < "TEST 1-0" >— i 
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BRING UP "IF 
CONTROL CHECK 
IF RESET' ' 
(GG131) 



START 1-0* 
TEST 1-0 OR 
. HALT 1-0 > 



YES I 
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SET SERVICE OUT 
HOLD LATCH 
(GV151) 



/ EVEN N 
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V IN LINES > 



BRING UP "TEST 
1-0 INTERRUPT" 
( GV141 ) 



SET STOP 
RELEASE LATCH 
(GV111) 



SET REQ REG 1 
(GB101)f REQ 
REG PRI 3 
( GB151 ) f AND 
REQ REG STAT 0 
(GB131) 



RESET SELECT 
OUT LATCH 
(GR101). 

' 'SELECT OUT' ' 
IF LINE 
(GS131). 



BRING UP "IF 
RESET DELAY" 
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OF "IF RESET 
START* ' 



DROP 

» 'OPERATIONAL 
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* 'HOLD OUT' ' IF 
LINES (GS131) 



BRING UP "IF 
CONTROL PARITY 
CHECK" ( GT111 ) 



CONDITION 
♦ 'SERVICE OUT' ' 
IF TAG LINE 
(GS131 ) 



BRING UP "IF 
CONTROL PARITY 
CHECK" (GT111) 



RESET SELECT 
OUT LATCH 
( GR101 ) 



1-0 UNIT DROPS 
"OPERATIONAL IN"\ 



BRING UP 
"REQUEST END 
UPDATE 
ROUTINE* ' 

( GG161 ) 
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SHEET 



DROP "SELECT 
OUT* ' IF LINE 
(GS131) 



SET IF CONTROL 
CHECK LATCH 
(GE101) 



SET IF CONTROL 
CHECK LATCH 
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SET REQ REG 3 
(GB101) AND REQ 
REG PRI 3 
( GB151 ) 



WHILE EXECUTING THE INTERRUPT i 
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"CHANNEL RESET" TO RESET THE 
UNIT SELECT OPERATION. 
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END 
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VWHILE EXECUTING THE END UPDATE 
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INTERRUPT ROUTINE BY EITHER 
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INTERRUPT ROUTINE. 
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(GG171) 



SET RECORD END 
LATCH ( GF111 ) 



BRING UP 
"START IF 
POLL" ( GR121 ) 



SET SELECT OUT 
LATCH (GR101 ) • 
CONDITION 
"SELECT OUT" 
IF LINE (GS131) 



u 



TRANSFER 
ADDRESS BYTE IN 
C REG TO B REG 




1 



BRING UP "IF 
CONTROL PARITY 
CHECK" (GT111) 



SHEET 2 



i<- 



SET IF CONTROL 
CHECK LATCH (GE101) 




MODE SWITCH IS IN IGNORE MODE. 

i 



BRING UP "IF RESET 
START" (GS151) 



I 



SET SIM 
CHECK LATCH 
(GG131) 

— — J 



L 



BRING UP "IF 
CONTROL CHECK IF 
RESET" ( GG131 ) 




RESET SELECT OUT LATCH 
(GR101). DROP "SELECT 
OUT' ' IF LINE ( GS131 ) 



BRING UP "IF RESET I 
DELAY' » (GS151) 150 NS I 
AFTER IF RESET START I 

l 



DROP "OPERATIONAL 
OUT' » AND ' 'HOLD OUT' ' 
IF LINES (GS131) 



1-0 UNIT DROPS "OP IN" 



BRING UP "RECORD END 
NOT OP IN PC I 
REQUEST" (GF111) 



BRING UP "PC I 
REQUEST" (GG181) 



WHEN COMMON CHANNEL AND 
I CPU HONOR THE "PC I I 
REQUEST" THE SELECTOR 
I CHANNEL PERFORMS THE I 
INTERRUPT ROUTINE. 

L J 

I 

>■ 

I 



/ END IF \ 

POLL 1 

OPERATION J 
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DROP ' * IF POLL 
ADDRESS REPLY” 
(GR121) 



DROP ' * COMMAND 
OUT* * IF TAG 
LINE (GS131) 



L 




! J 




BRING UP * »IF 






BRING UP 


POLL STATUS 






* ’RECORD END 


IN** (GR121) 






NOT OP IN PCI 
REQ” (GF111) 



I 

ITD 1 NOT 2 



GATE STATUS 
BYTE ON BUS IN 
LINE TO BYTE 
POSITION 0 OF C 
REG (GMU1) 



BRING UP ”PCI 
REQUEST* * 
(GG181) 



I 



NOT INTERRUPT 
REJECT LATCH 
ITD 3 

NOT IF POLL 
INTERRUPT END LATCH 

I 



CPU EITHER DECODES AN 1-0 
| INSTRUCTION OR GRANTS I 

PERMISSION TO CHANNEL TO 
[BEGIN THE INTERRUPT I 



BRING UP * ’ IF 
POLL STATUS 
PARITY* * 
(GR121) 




I 

ITD 2 



ITD 2 



SET IF POLL 
INTERRUPT END 
LATCH ( GR121 ) 



r 



SET POLL INTER- 
RUPT REJECT 
LATCH (GR121) 



F 



■ 


i 


i 


SET STOP 




CONDITION 


RELEASE LATCH 




’ 'SERVICE OUT* » 


( GV111 ) 




IF TAG LINE 






( GS131 ) 



>■< 




r 1 ~ 1 


i 


r “1 


CONDITION 




SET RESET 


' * COMMAND OUT* ' 




REQUEST LATCH 


IF TAG LINE 




( GV111 ) 


( GS131 ) 







SET STOP 
RELEASE LATCH 
(GV111) 



J 




1-0 UNIT DROPS 
* * OPERATIONAL IN** 



RESET IF POLL 
INTERRUPT END 
LATCH (GR121) 




RESET POLL 
INTERRUPT 
REJECT LATCH 
(GR121) 


I 






DROP ' ’SERVICE 




DROP ’ » COMMAND 


OUT” IF TAG 




OUT” IF TAG 


LINE (GS131) 




LINE ( GS131 ) 



f END IF \ f PROCESS START \ 

POLL 1 ( I— 0» TEST I-Q* 1 

OPERATION J \ OR HALT 1-0 J 
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/ COMMON CH 
PRIORITIES AND 
BREAK-IN 



v 




ASSUME THAT CHANNEL 1 
HAS REQUESTED SERVICE 



"IF CH 1 ON SYSTEM 1 ♦ 
*'NOT BLOCK CH 1 PRI»» 
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S4Q14 03 







I 

REGISTER TIME 



REGISTER B TIME 



"CH 1 \ NO 

DETECT REG”> 
(KE221) 




BRING UP * ’LS 






BRING UP ’ ’PCI 


REQ TO ROAR Q’ ’ 






LS WRITE REQ TO 


(KE471 ) * 






ROAR” ( KE131 ) 


(SET ROAR 






(SET ROAR 


POSITION 05 TO 






POSITION 09 TO 


”1” ) 






”1” ) 



’ ’LS 

WRITE TQ ROAR’ ’ 




RESET CH 1 LS 
DETECT REG 
( KE221 ) 



SET BREAK IN 
LATCH ( KE301 ) 



I 



X 

X’ ’ CECC A” 
< AND » ’CC 




I 

LATCH E TIME 



BRING UP 
’ ’BREAK IN OR 
CHAIN” ( KE301 ) 



LATCH A TIME 

I 



SET 1-0 ROUTINE 
MODE LATCH 
(KE311 ) 



SET EARLY FIRST 
CYCLE LATCH 
( KE301 ) 




SET PCI ENABLE 
LATCH (KE131) 



I 

REGISTER B TIME 

I 




I YES 
I 

SET LS WRITE 
LATCH (KE471) 




YES 
ALCH GATE 

I 



BRING UP ”CH 
LS DTC” TO 
CH 1 (KE481 ) 



YES X ’ ’LS 
— CWRITE TO ROAR”" 
(KE471) X 




LATCH D TIME 

I 

i > 

SET LS READ I 
LATCH (KE471) 




CHAL GATE 
I 



BRING UP ”CH 1 
LS DTC’ ' TO 
CH 1 (KE48I) 



SET FIRST CYCLE 
LATCH (KE301 ) 



l 


1 

LATCH E TIME 
1 
1 


1 

LATCH C TIME 
1 
1 








SET CH 1 






BUFFER 2 LATCH 




SET GATE LATCH 


(KE341) 




(KE131) 



REGISTER E TIME 



REGISTER TIME 



SET CH 1 
BUFFER 1 LATCH 
(KE341) 



SET DETECT 
INHIBIT LATCH 
(KE221) 




CONDITION ”PCI 
ENABLE” TO 
CH 1 (KE131 ) 



RESET CH 1 PCI 
DETECT * PRI 1 
DETECT n AND PRI 
2-3 DETECT 
REGISTERS 
( KE221 ) 



v 

L. 



V 
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INTERFACE) 
(GS111) 




■x 




IBM CONFIDENTIAL 

lOP 215 SELECTOR CHANNEL RESPONSES TO SERVICE IN (SHEET I OF 2) 



4015 SELECTOR CHANNEL 
RESPONSES TO b) AGO ASERVICE INL 
DATE 16 JUL 65 MACH. 2050 

FRAME 

P.N. 

IBM CORP. SDD PAGE 1 



uiH-o-Pin 
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SHEET 1 







I 



’ * ITD— 2 NOT 3” 

I 



r— 



BRING UP * ’ IF 
READ PROCEED’ * 
( GT131 ) 



BRING UP 






’ ’ IF READ-WRITE 




GATE BCB TO BCA 


PROCEED’ ’ 




(GR131) 


(GT131) 









y 

/' ’IF 

YES ^READ-WRITE 
< EAST BYTE 
( T131 ) 





IF READ-WRITE 
LAST BYTE 



SET CDA FIRST 




BRING UP ” IF 


BYTE LATCH 




SET FIRST BYTE 


(QT161) 




LATCH” ( GT161 ) 



SET STATUS NEXT 
LATCH ( GT161 ) 




* 

V 



SET FIRST BYTE 
LATCH (GF161) 




/ ' ’ BCB 
YES/ * ’ BCB 

<EQUAL-00* > 

V (GR131) / 

V / 




YES 



SET STATUS NEXT 
LATCH (GT1G1) 



SET WRITE CHAIN 
PROCEED LATCH 
( GT131 ) 
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1 



SET EOR COUNT 
INTERLOCK LATCH 
( GC151 ) 





BRING UP 




”IF SET 


EOR— 1 


LATCH’ ’ 


( GT151 ) 




SET. ASSUME THAT THIS 
IS NOT A CHAIN DATA 
OPERATION. 





BRING UP ’ ' IF 
SET L2W’ » 
CGT151) 




BRING UP ’ * IF 
SET L3W” 
(GT151) 




BRING UP ” IF 
SET LW’ ’ 
(GT151) 




i 


BRING UP ’ ' IF 
SET L2W’ ’ 
(GT151) 






BRING UP ’ ’ IF 
SET L3W ’ ’ 
(GT151) 




BRING UP ' ’IF 
SET LW’ * 
(GT151) 


1 

1 








1 

1 




SET L2W LATCH 
( GC141 ) 




SET L3W LATCH 
(GC141) 




SET L1W LATCH 
(GC141 ) 




SET L2W LATCH 
(GC141) 




SET L3W LATCH 
(GC141) 




SET LlW LATCH 
(GC141) 



V 


> 




>i >■< 


■< 1 



->■<• 

I 

I 
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SHEET 2 



YES / \N0 

— <“ER EQUAL 00“>- 
V (GC111) X 



» * IF WRITE 



: l^ATCH’ • 

>■ 



X “IF ^ 
“READ LATCH’ ’ 
V ( GT121 ) > 



YES 



ITD— 2 NOT 3 



YES X \N0 

— O’SERVICE IN” >- 



’ ’SERVICE IN’ ' 



YES 



ITD— 1 NOT 2 



BRING UP 
“IF SET READ 
INTERLOCK 
LATCH” ( GT141 ) 




C FULL 
LATCH SET 
(GT141) 



YES 



YES 



' ’ ITD— 1 ' ' 



BRING UP 

“IF READ-WRITE 

END” ( GT131 ) 



SET READ 
INTERLOCK LATCH 
(GC151) 



“IF REGI TRANSFER 
DELAY” TIME 
I 
I 



YES 



’ ’SERVICE 



ITD— 2 
NOT 3 



I RESET L2W AND 
IL3W LATCHES 
( GC141 ) 



SET IF STOP 
LATCH ( GV101 ) 



BRING UP “IF 
READ TRANSFER 
RESET” (GT141) 



BRING UP 
“IF READ-WRITE 
END” ( GT131 ) 



ASSUME THAT THIS 
IS NOT A CHAIN 
DATA OPERATION 



RESET EOR-1 
LATCH (GC151 ) • 
RESET ALL LW 
LATCHES ( GC141 ) 



SET IF STOP 
LATCH ( GV101 ) 



NO X \ YES 

— <“BC EQUAL ER“> 

\ (GC111) X 



->■<- 



/ LS 
FULL REG SET 
V (GC171) . 



YES 



BRING UP “READ 
INTERLOCK SET 
LW" (GG101 ) • 

SET L1W LATCH 
( GC141 ) • 



->■<• 



BRING UP “READ 
INTERLOCK SET 
L2W” ( GG101 ) • 

SET L2W LATCH 
( GC141 ) • 





IBM CONFIDENTIAL 



40X6 IF CONTROL CIRCUITS 
RELATION TO LW REGS 
DATE 16 JUL 65 MACH, 2050 

FRAME 

P.N, 



lOP 216 IF CONTROL. CIRCUITS RELATION TO LW REGS (SHEET 3 OF 3) 



IBM CORP# SDD PAGE 



O'*-* o -P in 




IBM CONFIDENTIAL 



Standard Interface 
(Channel ) 



Selection Control 
and Tag In Lines 



Selection Control 



and Tag Out Lines 



Bus Out Lines 



HI 



Parity Checked 

Write Data 
Flow Path 

Read Data 
Flow Path 



Read/Write 
Data F'ow Path 




Indicator 



1 052 Adapter 



1052 Keyboard/Printer 



Bus Out 
Receivers 
(Powerinq) 
011-012 



£> 



Bus Out 
Receivers 
(Powering) 
011-012 



A 



Address 

Generator 

031 



^ Bus In Lines 




Bus In 
Drivers 




Parity 

Generator 




ft#:;’###: 




Legend: 




*01-311 




021 



Fixed 




Address 






Command 


Address 


■>> 


Compare 






Decoder 


(Pluggable) 


1/ 








031 




031 




141 



A 



Valid/lnval id 
Command and 
Cmd Reject 
141 



Command 

Register 



Read 


Write 


Sense 


Test 

I/O 



ICR 



151 



Interface 

Controls 

101-111 






Read/Write Clock 




601 


SS 1 


SS 2 


SS 3 


SS 4 


SS 5 


SS 6 


SS 7 



Read/Write Clock 





Translate 
BCD to 8-Bit 

521-551 




Keyboard BCD 
Powering 




501-502 



Data Register 
Controls 

631-641 



Upper/Lower Case Control 



Status 

Triggers 

121-131 



. 




EMBEIQ 





Read/Write Clock 







|Data Register 
Powering 

221 



Sense Bit 
Latches 

021-141-621 




Translate 
8-Bit to T/R 

401-411 



Function 

Controls 



Read/Write Clock 



Function 

Decode 

421 




Space 


LC 

Shift 


CR & 
LF 


up- 

shift 



61 1-621 




Keyboard 

Contacts 




Tilt/ Rotate 
Magnets 



Cycle Clutch 
Magnet 




Function 

Magnets 
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p Initial 





5. Raise status-in and gate status byte to bus-in lines when 



command-out falls. 

6. Drop operational -in and status-in when service-out rises. 

• FIGURE IOP 302. INITIAL SELECTION— READ, WRITE, SENSE (1052) 
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From 

Channel 




From 

Channel 



From 

Channel 




To Request In 

Channel 



Write Command 












Read Command 


OR 


A 








Sense Command 












Not Initial Selection Tgr 












1 

Attention Status 








OR 


Turn On Device End 




Turn On Stop, Busy, and Channe 


1 End 






Reset Device End and Busy 


OR 


Gen, Sel, or Initial Reset 



SS 2 



Not Printer Busy 


A 


Write 




Not Stop 





Operational In Tgr 



Not Address In Tgr 



Not Command or Service Out 



Busy 

Condition 




Service Request 



Service 
n Tgr 




Command Out 


A 


OR 




Service In 


M 




Not Write Command ' 


A 






Service Out 








Gen, Sel, I/O Disc Reset 








Turn Off Service In 








To 

Channel 



Service In 



♦ 



From 

Channel 




Objectives: 



1 . Raise request-in: 

A. Immediately after initial selection (service request latch. Figure IOP-302). 

B. When the printer has finished printing the previous character, or 
when the printer has finished performing the function defined by 
the previous character (service request latch. Figure IOP 302). 

2. Raise service-in when command-out line indicates "proceed". 

3. Start read/write clock and gate bus out lines to data register when 
service-out rises. 

4. Repeat, starting with IB, and continue until the command-out line 
indicates "Stop." 





P 






0 






1 






Bus 


2 




— 


A 


Out 


3 




From 


4 




R 


v- honn© i 


5 






6 


Data 




7 


Byte 





Data 

Register 



0111213 



201 

211 



4l5l6l7 



• FIGURE IOP 303. DATA TRANSFER— WRITE (1052) 
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From 

Channel 

From 

Channel 

From 

Channel 



To 

Channel 



Halt I/O 





Not Printer Busy 
Not Inhibit Carrier Return 



Turn On Cycle Time 
Not SS 6 



Objectives: 




Not End of Line Contact 



Not Shift Change 



Gen, Sel, Init Reset 



Carrier Return Lth 



. 0 ^ 



1052 Busy 



Not Bus Out 4 



Write Gate 



1 . Set stop and channel end latches when command-out line indicates "Stop." 

2. Start the read/write clock if the carrier is to be returned. 

3. Set store device end latch when carrier is through moving (returning). 

4. Set device end latch: 

A. At the same time as the channel end latch if the carrier is not 
to be returned; 

B. After channel end status has been accepted by the channel, 
and the carrier finishes returning. 

5. Raise request in for any pending status interrupt conditions. 

6. Set channel end and device end latches during initial selection for 
either control command. 

7. Set channel end and device end latches during sense byte transfer 
for sense command. 



Gen, Sel, or CE Reset 



Channel Status In Tgr 



( 71 — 


Device End 






Gate Status In 


A 




Status In Tag (Delay) 




From 


Command Out 





Cycle Time 


A 






Cycle Time 




601 


1 


f 




Gen or Selective Reset 



Status In and Service Out 



Operational In Trigger 



Suppress Out 



From 
Channel* 



Not Operational Out 



Not Suppress Out 



9 - 

S~ 



S- 



Command Reset 



OR 



Status 

Stacked 



A 


FF 


OR 





121 

Selective 

Reset 



Lower/Upper 

Case 



OR 


FF 


OR 


611 



Inhibit 

Carrier 

Return 




General Rst 



CE Reset 



OR 



Halt I/O Latch 



OR 



Gen, Sel, I/O 
Disc Reset 



Not CE Mode 



Gen, Sel Reset 



• FIGURE IOP 304. ENDING SEQUENCE (1052) 
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Service Request 

Operational in Tgr 

Not Command or Serv Out 
Not Address In Tgr 
Busy Condition 




Objectives: 

1 . Start read/write clock at SS 5 when a key is operated. 

2. Gate keyboard translator output to data register. 

3. Raise request-in. 

4. Raise operational-in and address-in, gate address byte to 
bus-in lines. 

5. Raise service-in and gate data register output to bus-in lines 
when command-out fails. 

6. Start read/write clock at cycle time (to operate printer) when channel 
accepts data byte replying service-out to service-in. 



Data 

Register 


201 

211 


0 1 2 3 4 5 6 7 







Service 
In Tgr 

rfr 



in 




A 

8 



Bus 

In 

To 

Channel 






Parity 




Generator 





To 

Channel 

From 

Channel 



Service In 



Service Out 




Service Response 
Read 




Turn On Cycle Time 



4 



• FIGURE IOP 305. DATA TRANSFER— READ (1052) 
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Request PB 
Intlk 



Store 




2. Set unit check latch when status-in trigger is on for any of the 
following conditions: 

A. Equipment check latch is on 

B. Ready Latch is not on 

C. Command reject latch is on 

D. Bus-out check latch is on (even parity byte on bus-out lines). 
• FIGURE IOP 306. SENSE AND STATUS BYTES (1052) 
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BUFFER OPERATIONS — INITIALIZE, 



START NEW 7070/74 WORD, RDW PROCESSING (SHEET 1 OF 8) 
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CD3 



AN! 



ADI 



QH855 

Mode Change to Alpha, Buffer Byte = 3 
New Buffer Word to L and WS 1 
Step LB to 0 



QH855 



Step MB to 1. Set F = 1111. 

WFN to AND. Xlate L Byte 0 to 
7070/74 Digits 8,9. Look for BRTC 
Step LB, MB to 1,2 
Working Address to R 



Xlate L Byte 0 to 7070/74 Digits 0, 1 
Look for BRT C. Step LB, MB to 1 , 2 
Buffer Address to R 



QH855 

Update Buffer Address and Call Next 
Buffer Word. Xlate L Byte 1 to 
7070/74 Digits 2,3. iStep LB, MB to 2,3 



Buffer End 



Stat 0 
No 



QH855 



Zero GP 1 
WFN to AND 



QH855 

Xlate L Byte 2 to 7070/74 Digits 4,5 
Step LB, MB to 3,0 

Store 7070/74 Word High -Order Half, if 
Not LLRR. Xlate L Byte 3 to 7070/74 
Digits 6,7. Step LB, MB to 0, 1 
New Buffer Word to L and WS 1. 

Xlate L Byte 0 to 7070/74 Digits 8,9. 
Look For BRTC. Step LB, MB to 1,2. 
Working Address to R with Stat 2 = 1 
if Right Digit = 9, Otherwise Stat 2=0 



QH857 



Record Mark Check 
WS 4 to L. Set BS to 0100 



QH857 

7070/74 Digit 9=0, Possible RM. 
Set Stat 3 = 1 if RM. Otherwise 
Do Nothinq 



^Right\ 

Digit of Working 

\ Address 
\=9/ 



QH857 

7070/74 Digit 9 Not 0 and Working 
Address Right Digit / 9. 

Alpha Sign to 7070/74 Word, Low-Order 
Half, Step MB to 3. 

Binary Add 1 to Working Address. 

Set Leftmost Bit to 0 and Store Back 
in GP 8. Set L to Prior Value of GP 8 



QH855 



No Record Mark Check and Working 
Address Right Digit = 9. 

Set Stat 2=0. Step MB to 3. 

Prepare Decimal Up of Working Address 



QH855 



No Record Mark Check and Working 
Address Right Digit / 9. 

Alpha Sign to 7070/74 Word, Low- 
Order Half. Step MB to 3. 

Binary Add 1 to Working Address 
Set L to GP 8 Set High-Order Bit to 
0 and Store Back in GP 8 



7070/74 Digit 9 Not 0 and Working 
Address Right Digit = to 9 
Set Stat 2 = 0. Step MB to 3. 

Prepare Decimal Up of Working Address 



Stat 0 






Buffer End 






Stat 0 



Buffer End 



Stat O' 



Buffer End 



Note: The numeric digit suffix inside all 

off-page connectors tells which of 
the eight sheets to come from or 
go to. 



Meaning 
Buffer End 

Mode (1 = alpha, 0 = numeric) 
RDW match 

00 = ELB 10 = ELBR 

01 = ELBZ 1 1 = ELBC 

(For unload ops, stat 4 
equals compressed word or TWE 
Buffer byte address 

0 = EUB 1 = EUBR 
LLRR 



QH855 

Decimal Add One to Working Address 
Set Leftmost Bit to 0 and Store Back 
In GP 8. Set L to Prior Value of GP 8. 
Step MB to 2. Alpha Sign to 7070/74 
Word, Low-Order Half. Step MB to 3 



QH856 

Zero Byte 3 of 7070/74 Word, Low- 
Order Half. Step MB to 0 
Set Stats 6-7 to 0, 1 to Point to 
Buffer Byte 1 as Next Source Data. 

Store 7070/74 Word, Low-Order Half 
if Not LLRR. Prepare Tests for Delta 
and Workinq Address = Stop Address 



'Match 
Latch 
v On 






Stat 3 



Restore Working Address to 
Prior Value (L to GP 8) 









Set M Byte 3 to 4. Zero L. 
Buffer Address to R 



BM6 



Buffer Address to R. Zero Byte 0 
of Next 7070/74 Word, High-Order 
Half. Step MB to 1 



QH856 

Zero GP 1 
WFN to AND 



Mode 

Change 



BQ5 
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AS1 I DZ5 



QH858 



Alpha Mode 
Start With Byte 1 



QH858 

Mode Change to Alpha. Skip 
Byte 0 and Start With Byte 1 
Increment LB 



QH858 

Come in to Alpha Byte 1 from 
Alpha Byte 0 



QH858 

Step Working Address and Store 

Back in GP 8. Set F = 1111 

Set LB, MB = 0, 2. Alpha Sign to M 

Make Working Address Binary 

New Buffer Word to L 

Set MB = 0 



RDW Match/ 



Set Stat 3 - 1 



QH858 



Call Next Buffer Word and 

Store Updated Buffer Address 

Xlate L Byte 1 to 7070/74 Digits 0, 1 

Look for BRTC 

Step LB, MB to 2, 2 

Xlate L Byte 2 to 7070/74 Digits 2, 3 

Step LB, MB to 3, 3 

Working Address to R 



.Stat 0 






- — — V 


Zero GP 1 . 


WFN to AND 






BR6 



Buffer End 



Zero GP 1. WFN to AND. 
Address to R 



QH861 



Buffer 



QH858 

Xlate L Byte 3 to 7070/74 Digits 4, 5 
Step LB to 0. Step Working Address 
And Store. Store High-Order Half of 
7070/74 Word if Not LLRR 
Zero M Byte 3. Alpha Sign to M Byte 2 
New Buffer Word to L. Set MB = 0 



QH861 



Xlate L Byte 0 to 7070/74 Digits 6, 7. 
Step LB, MB to 1, 1. Look for BRTC. 
Start Storage Unless LLRR. 

Xlate L Byte 1 to 7070/74 Digits 8, 9 
Step LB to 2 

WFN to AND (for Buffer End or RDW 
End) 



L Byte 0 Was BRTC. Send Partial 
High-Order Half of 7070/74 Word 
to GP 0. Set Indicator to Show 
Character 2 Was Stored 




BRTC. Set GP 1 Byte 3 to 03 (Alpha 
Mode Character 3 Done) Zero the 
Rest of GP 1. Set GP 0 to 7070/74 
Word, High-Order Half, Just Stored 




Not Record Mark Control. No BRTC 
Possible Store of Low-Order Half of 
7070/74 Word. Set MB = 0 
Working Address to L 



Match Latch 



Stat 3 - 1 




QH861 

Call Next Buffer Word 
Step LB to 1 



Step MB to 3. WFN to EOR 

Set F to 1111. Working Address to R 

Partial High-Order Half of 7070/74 Word to M 



Working Address to R 

Xlate L Byte 2 to 7070/74 Digits 0, 1 

Step LB, MB to 3, 2. Look for BRTC 



L_J QH861 

Xlate L Byte 3 to 7070/74 Digits 2, 3 
Step LB, MB to 0, 3 
New Buffer Word to L 



■ Stat 0 



Buffer End 



Xlate L Byte 0 to 7070/74 Digits 
4, 5. Step LB, MB to 1 , 0. Look 
for BRTC. Update Working Address 
Start Storage for High -Order Half of 
7070/74 Word 



Stat 0 



Buffer End 



QH861 

Store High-Order Half of 7070/74 
Word if Not LLRR 
Xlate L Byte 1 to 7070/74 Digits 
6,7. Step LB, MB to 2, 1 . 

Xlate L Byte 2 to 7070/74 Digits 
8,9. Step LB, MB to 3,2. 

Stop Address to R 

If RM Control and RM, Set 

Stat 3 = 1 

Working Address to L 
Alpha Sign to Low-Order Half of 
7070/74 Word. Step MB to 3 
Zero M Byte 3. Step MB to 0 
Set BS = 1101 

Store Low-Order Half of 7070/74 
Word if Not LLRR 



RDW End 



QH862 

Set Stat 6-7 = 1 1 to Point to 
Buffer Byte 3 Next. 

Zero GP 1 to Show On 7070/74 
Word Bounds and Alpha Mode 



QH862 

Set Stat 3 = 1 if RDW Match. 
Buffer Address to R 



Set Stat 3 = 1 if RDW Match 
Compare Next Source Byte to Delta. 
Update Buffer Address and Call 

Next Buffer Word 

Zero to M Byte 0 . Step MB to 1 



Possible Store of Low-Order Half of 
7070/74 Word. Set MB = 0. 

Prepare Test for Record Mark 
(RDW End). Working Address to L 



1 /RDW End 



Record Mark 



Mode 

Change 



QH862 

Switch to Numeric Mode 



QH862 



Continue With Alpha Conversion 



QH859 

Set Stats 6-7 = 10 for Addressing 
Next Source Byte. Zero GP 1. 



WFN to AND. Set F = 1111 
Set MB = 2. Partial 7070/74 
Word to M from GP 0 



QH864 

New Buffer Word to L and WS 1 
Xlate L Byte 3 to 7070/74 Digits 0, 1 
Step LB, MB to 0, 2. Look for BRTC 



Aode Change 



QH859 

Next Word is Numeric. WFN to Cross. 
Zero M. Step LB to 3 (over delta) 

New Buffer Word to L, WS 1 
Xlate L Byte 3 to 7070/74 Digit 0 
Look for BRTC 



? 


QH859 


Still Alpha. Start Next 7070/74 Word 




t 



QH864 

Buffer Address to R 

Xlate L Byte 0 to 7070/74 Digits 2, 3 
Step LB, MB to 1 , 3. Look for BRTC 



Buffer End 



QH864 

Digits 0, 1 Were BRTC. 
Zero GP 1. WFN to AND 



Stat 0 



QH864 

Call Next Buffer Word 
Xlate L Byte 1 to 7070/74 Digits 
4, 5. Step LB, MB to 2, 0 
Update Working Address 



-Stat 0 



Buffer End 



QH864 

Digits 2, 3 Were BRTC 
High-Order 7070/74 Word to GP 0 
WFN to AND. Mode and 
Character Indicators to GP 1 
Set Byte in M For AND’ing 



LB, MB = 00 
Stats = xxx 1 0000 
WFN - 010 
L = Zeros 

R = 7070/74 Binary Address 



Note: The numeric digit suffix inside all 

off-page connectors tells which of 
the eight sheets to come from or 
go to. 



QH864 

Xlate L Byte 2 to 7070/74 Digits 6, 7 
Step LB, MB to 3, 1 
Xlate L Byte 3 to 7070/74 Digits 8, 9 
Step LB, MB to 0, 2 
If RM Control and RM, Set Stat 3 = 1 
New Buffer Word to L and WS 1 
Update Working Address 
Alpha Sign to Low-Order Half, 7074 
Word. Step MB to 3. Zero M Byte 3 
Step MB to 0. Set BS to 1101 
Store High, Order Half of 7070/74 
Word if No LLRR. Working Address to 
L, Stop Address to R. Set Stat 3 = 1 
if RDW Match and Store 7070/74 
Word, Low-Order Half, if Not LLRR. 
Prepare Mode Change Test if Not 
RDW Match 

^-Stat 3 



RDW Matcn s 



QH865 



Stats 6-7 = 00 to Point to Buffer 
Byte 0 Next. Zero GP 1 to Show 
On 7070/74 Word Bounds and 
Alpha Mode 



Stat 


Meaning 


0 

1 

2 


Buffer End 


Mode (1 = alpha, 0 = numeric) 


3 


RDW match 


4 


00 = ELB 10 = ELBR 


5 


01 = ELBZ 11= ELBC 


6 


(For unload ops, stat 4 
equals compressed word or TWE) 
Buffer byte address 


7 

R Sign 


0 = EUB 1 = EUBR 


L Sign 


LLRR 





^ 

QH865 


Switch to Numeric Mode 








Continue 

(Unload, 






ICC4J 



Mode Change) 



QH865 
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QH870 



WFN to EOR, Step LB to 1 



QH870 




WFN to Cross. Step LB to 1 
Buffer Address to R 




AG1 






QH870 



Set LB, MB = 0, 2. Partial High- 
Order Half of 7070/74 Word to M 
Set F = 1 1 1 1. Buffer Address to R 



Call Next Buffer Word 
Xlate L Byte 2 to 7070/74 Digit 0 
Step LB to 2. Look for BRTC, TWE 
Xlate L Byte' 2 to 7070/74 Digit I 
Step LB, MB to 3, 2. Look for TWE 



Yes 



QH870 



I WFN to AND Numeric Mode 
Indicator to GP 1 Byte 3 
Buffer Byte 1 is Next. 





Stat 0 



QH870 



Xlate L Byte 3 to 7070/74 Digit 2 
Step LB to 0. Look for BRTC and TWE 
New Buffer Word to L and WS 1 



Xlate L Byte 0 to 7070/74 Digit 3 

Step LB, MB to 1, 3 

Look for BRTC and TWE 

Call Next Buffer Word 

Xlate L Byte 1 to 7070/74 Digit 4 

Look for TWE (Digit 3) 



QH870 



Stat 0 and Stat 4 = 01 
Tape Word Error 




QH870 



Xlate L Byte 2 to 7070/74 Digit 5 

Step LB, MB to 3, 0 

Save Old Buffer Word in FP 1 






Yes 



Set Stats 6-7 and LB to Point to 
Byte 2 Next. Shift High-Order 
Half of 7070/74 Word Right and 
Create Low-Order Half of Word in 
M 




Stat 4 



QH870 



|Stat 0 and Stat 4=11. Buffer End 
Partial High-Order Half or 7070/ 
74 Word to GP 0. WFN to AND 
Set Numeric Mode and Digit 
Count in GP 1 (Digit 3 Next) 



(Testing Digit 4) 








Partial High-Order Half of 7070/ 
74 Word to M. Set F = 1 1 1 1 
Set LB, MB = 0, 1 








QH875 



WFN to Cross 

Step LB to 3 (Over Delta) 



QH875 

Xlate L Byte 3 to 7070/74 Digit 0 
Step LB to 0. Look for TWE. 



QH875 



jXIate L Byte 3 to 7070/74 Digit 0 
[Step LB to 0. Look for TWE 
New Buffer Word to L and WS 1 



QH875 



Xlate L Byte 0 to 7070/74 Digit 1 
Step LB, MB to 1, 2 
Look for BRTC and TWE 
Buffer Address to R 



QH875 



WFN to AND. Numeric Mode Indicator 
to GP 1 Byte 3. 7070/74 Digit 0 Next 





Stat 0 

(for Digit 0) 



QH875 



Xlate L Byte 1 to 7070/74 Digit 2 

Call Next Buffer Word 

Set LB = 2. Look for BRTC and TWE 



Yes 






> 


No 

QH870 


New Buffer Word to WS 1 










QH870 



Shift Left One Place 

Save Current Buffer Word in WS 1 





Stat 4 

(Testing Digit 5). 



High -Order Half 7070/74 Word to H 
Xlate L Byte 3 to 7070/74 Digit 6 
Step LB to 0. New Buffer Word to L 



QH875 



WFN to AND. Partial High-Order] 
Half of 7070/74 Word to GP 0 
Numeric Mode Indicator to GP 1 
Byte 3. 7070/74 Digit 1 Next 




Stat 0 

(for Digit 1) 




QH875 





r 

No 

QH875 


Xlate L Byte 2 to 7070/74 Digit 3 


Step LB, MB to 3, 3. 


Look for TWE. 


Buffer Word to FP 1 in Case Com- 


pressed Word, 




Xlate L Byte 3 to 7070/74 Digit 4 


Step LB — 0, New Buffer Word to 


L and WS 1 









Digit 5 Next. Partial High-Order 
Half 7070/74 Word to M. Set F = 
1111 . Set LB, ‘MB = 0, 3 




Yes 



QH875 






Xlate L Byte 0 to 7070/74 Digit 5 
Step LB, MB to 1, 0. Look for BRTC 
Buffer Address to R 



QH871 



Partial High-Order Half 7070/74 
Word to H. Set MB = 0 
Set F = 1 1 11 



Xlate L Byte 0 to 7070/74 Digit 7 

Step LB, MB to 1, 1 

Buffer Address to R. Look for BRTC 



Yes 



QH871 



Shift Digit 7 into F. Set Stats6,7 
and LB to Point to Byte 0 Next. 
Set Stat 5 to Show Buffer Word 
is in FP 1 




QH875 



Right-Justify High-Order Half of 
7070/74Word. Create Low-Order 
Half 7070/74 Word in M. Set 
Stat 5 to Show Buffer Word is in FP 1, 



Stat 4 

(Testing Digit 6) 




Stat 4 

(Testing Digit 4) 



High-Order Half of 7070/74 Word to H 
Xlate L Byte 1 to 7070/74 Digit 6 
Step LB to 2. Look for BRTC 







CK7 





No 


Xlate L Byte 1 to 7070/74 Digit 8 
Step LB to 2. Call Next Buffer Word 







QH875 



Stat 0 and Stat 4 = 01, Compressed 
Word. Set Stats 6-7 and LB to Point 
to Byte 1 Next. Create Low-Order 
Half 7070/74 Word in M 



QH871 



Stat 0 and Stat 4 — 01. Compressed 
Word. Set Stats 6-7 and LB to 
Point to Byte 1 Next. Shift Digit 
6 to F 





Compressed Word 
and BRTC 



QH875 



Xlate L Byte 2 to 7070/74 Digit 7 
Step LB, MB to 3, 1 
Call Next Buffer Word 



QH871 



Xlate L Byte 2 to 7070/74 Digit 9 
Step MB to 2. Working Address to R 






Yes 



QH871 



Set Stats 6-7 and LB to Point to 
Byte 2 Next. Shift Digit 6 to F 




(cW7j 



Yes 



QH871 



Stat 0 and Stat 4 = 11. Buffer End 
Set MB = 3 WFN to AND. High- 
Order Half of 7070/74 Word to GP 0 
Zero M Byte 3. Numeric Mode and 
Digit Indicators to M Byte 3 
Digit 7 Next 



Stat 4 

(Testing Digit 8) 



QH875 



Set Stats 6-7 and LB to Point to 
Byte 2 Next Shift Digit 7 to F 
Set MB = 0 




QH875 



Stat 0 and Stat 4=11. BRTC . 
WFN to AND. High-Order Half| 
of 7070/74 Word to GP 0 
Numeric Mode Indicator to GP lj 
Byte 3. 7070/74 Digit 5 Next 



Stat 4 

(Testing Digit 6) 



[CX6] 



QH875 



QH877 



Zero M Byte 3 
Working Address to R 



High-Order Half of 7070/74 Word to hJ 
Set LB, MB = 0,1. Set F = 1 1 1 1 
Working Address to R 



(cvf] 



$ 




CM7 



Sign to Low-Order Half 7070/74 Word 
New Buffer Word to WS 2 
Step LB, MB to 3, 3 



Yes 



QH871 



Interrupt Base Address to R. 
Constant 24 to L 




-No Stat 4 



QH875 



Set Stats 6-7 and LB to Point to 
Byte 3 Next. Shift Digit 7 to F 



nape Wora 
Error 



No 




CZ7 




Zero Byte 3 of Low-Order Half 7070/74 Word 
Update Working Address. Set MB = 0. Turn Off 
Left Bit of RDW to Show It Was Used. Store High 
Order Half 7070/74 Word if Not LLRR. Work 
Address to L,Sfop Address to H,WFN to Cross 
Off Stat 4. Compare Working with Stop. Buffer 
Address to L. Store Low-Order Half of 7070/74 
Word If Not LLRR. Set Stat 3 = 1 if Start = Stop 
Zero M Byte O.New Buffer Address to'WSl. MB+1 



ing 

Turn 



Stat 3 and Stat 4 = 00 
Go to Build Numeric Word 
Starting with Buffer Byte 3. 




QH877 



Set Stats 6-7 and LB to Point to 
Byte 0 Next. Set Stat 5 to Show 
Buffer Word is in F P 1. 

Shift Digit 6 to F. 




Stat 3 and Stat 4 = 01 RDW Match 
WFN to EOR. Compare L Byte 3 
to Delta. Look for BRTC 
Buffer Address to R Step LB to 0 



WFN to AND 

Numeric Mode to GP 1 Byte 3 




CP6 



Note: The numeric digit suffix inside all 
off-page connectors tells which of 
the eight sheets to come from or 
go to. 



Stat 


Meaning 


0 

1 

2 


Buffer End 


Mode (1 = alpha, 0 = numeric) 


3 


RDW match 


4 


00 = ELB 10 = ELBR 


5 


01 = ELBZ 11 = ELBC 


6 


(for unload ops, stat 4 
equals compressed word or TWE 
Buffer byte address 


7 

R Sign 


0 = EUB 1 = EUBR 


L Sign 


LLRR 




QH872 

Stat 3 and Stat 4=11. RDW No Match 
Set Numeric Indicators in GP 1 Byte 3 
Set Stats 6-7 to 1 1 to Point to Buffer 
Byte 3 Next. WFN to AND 
Buffer Address to R . Decrement 
Buffer Address by 4 and Return It 
to GP 12 



Yes /Comf: 
\Wo 


1 ^j/Stat 4 

V (Testing Di 

\ 7 ) 

ressed\ 

rd 

No QH877 


Xlate L Byte 3 to 7070/74 Digit 8 
Set LB = 0 

New Buffer Word to L and WS 1 






QH877 


Xlate L Byte 0 to 7070/74 Digit 9 
Set MB = 3. Look for BRTC. 
Working Address to L 


Yes 

/ Comp 

\Wo 


Stat 4 

X. (Testing D 

-essed\ 

rd 

No 

QH877 


Start Storage for 
of 7070/74 Word 
Step MB Down to 

i 


digh-Order Half 
if Not LLRR. 

2 (for Sign Byte) 




WFN to AND. Set MB = 3 
High -Order Half of 7070/74 Word | 
to GP 0. Buffer Address to R. 
Numeric Mode Indicator to GP 1 
Byte 3. 7070/74 Digit 9 Next 



QH877 



Sign to Low-Order Half 7070/74 Word 

Step LB, MB to 1,3 

Store High-Order Half 7070/74 Word 

if Not LLRR. Update Working Address. 

Turn Off Last Bit of RDW to Show It 

Was Used. Old Working Address to L 

Stop Address to R 

Compare Working to Stop 

Set MB = 0. Store Low-Order Half 

7070/74 Word if Not LLRRi. 

WFN to AND. Zero M Byte 0 
Step MB to 1. Buffer Word Back to L 




DA7 




QH878 




QH878 



Stat 0 and Stat 3=11. RDW End 




r~ » 

Stat 0 and Stat 3=10 


Set Stats 6-7 to 01 




Numeric Mode Buffer Byte 1 


Numeric Indicator to GP 1 Byte 3 




Set Stat 3 = 1 




DD1 



QH878 



Stat 0 and Stat 3 = 00 



(ohTJ 



y Test Stat 0 \ _ 
' and Stat 4 



QH878 



Stat 0 and Stat 4 = 00. Continue 
With Next Numeric Word. 

WFN to Cross 



Mode Change 

Xlate L Byte 0 to 7070/74 Digit 0 

Step LB, MB to 1 , 1 

Look for BRTC Buffer Address to R 




QH878 



Stat 0 and Stat 4 = 01. Next Buffer| 
Byte is Non-Numeric. Compare 
to Delta. Step LB to 2. 

Call Next Buffer Word 



QH878 



Stat 0 and Stat 4=11. 
BRTC. WFN to AND 
Numeric Mode Indicator 
to GP 1 Byte 3 





DG6 




CR2 
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T 1 


r 

QH884 


Step LB to 2 (C 


)ver the Delta) 




1 QH884 


Xlate L Byte 2 to 7070/74 Digit 0 
Step LB. to 3. Look for BRTC and _TWE 




QH884 


Xlate L Byte 3 to 7070/74 Digit 1 

New Buffer Word to L 

Step LB, MB to 0, 2. Look for TWE 











QH884 

Set Stat 3 = 1 if RDW Match 
Step LB to 2 (Over the Delta) 

Start Storage for the Next Buffer Word 



Set MB = 2. Set F= 1111. 
Buffer Address to R. 

Partial 7070/74 Word to M. 



Set F= 1111. 
Buffer Address to R 
Partial 7070/74 
Word to M 



Stat 0 



Buffer End 



QH880 

Step LB to 0 to Pass the Delta. 
Step MB to 1 

New Buffer Word to L and WS 1 



QH880 

Xlate L Byte 0 to 7070/74 Digit 0 
Step LB to 1. Look for BRTC and TWE 



QH880 

Xlate L Byte 1 to 7070/74 Digit 1 
Step LB, MB to 2,2 
Look for BRTC and TWE 
Updated Buffer Byte Address to GP 12 

Stat 0 _ 



Buffer End 



QH880 

Step LB to 0 to Pass the Delta. 
WFN to EOR. 

New Buffer Word to L and WS 1 



QH880 

Partial High-Order Half 7070/74 
Word to M . Set MB = 3 
Set F = 1 1 1 1 (for Delta Check) 
Buffer Address to R 



QH884 

Set Mode Indicator in GP 1 j 
Byte 3 to Numeric. WFN to AND 



QH884 




Xlate L Byte 0 to 7070/74 Digit 2 
Step LB to 1. Look for BRTC and TWE 
Call Next Buffer Word 
Xlate L Byte 1 to 7070/74 Digit 3 
Step LB, MB to 2, 3. Look for TWE 

./N. Stat 0 




QH880 



Xlate L Byte 2 to 7070/74 Digit 2 
Step LB to 3. Look for BRTC and TWE 
Xlate L Byte 3 to 7070/74 Digit 3 
Step LB, MB to 0,3 
Look for BRTC and TWE 
New Buffer Word to L and WS 1 



QH880 

Numeric Mode Indicator to GP 1 Byte 3 
WFN to AND 



Buffer End 



j QH884 

Partial High-Order Half 7070/74 
Word to GP 0. Set Indicator in 
GP 1 to Point to Digit 2 Next. 

WFN to AND. Set M Byte 3 = 1100 



QH884 



Xlate L Byte 2 to 7070/74 Digit 4. 
Step LB to 3. Buffer Word to FP 1 
Test for Zone on Prior Character 




^^tv-Stat 4 



Tape Word 
sError > 



QH884 



Xlate L Byte 3 to 7070/74 Digit 5 
New Buffer Word to L 
Step LB, MB to 0, 0. 



•Stat 4 





Right-Justify Good Digits in L and 
Create High-Order Half 7070/74 
Word in M. Set Stats and LB to 
I Point to Byte 3. j 



Hold High-Order Half 7070/74 Word in 
H. Xlate L Byte 0 to 7070/74 Digit 6 
Step LB to 1. Look for BRTC 



QH880 

Stat 0 and Stat 4=11. Buffer End. 
WFN to AND. Send Partial High- 
Order Half 7070/74 Word to GP 0. 
Set Numeric Mode and Digit Count 
in GP T. 



Compressed 
\ Word S' 



Create High -Order Half 7070/74 Word 
Word in M. Set Stats and LB to Point 
to Byte 0 



QH885 



QH885 

Stat 0 and Stat 4=11. Buffer End. 
WFN to AND. Send High-Order Half 
7070/74 Word to GP 0. Set Numeric 
Mode and Digit Count in GP 1 Byte 3 
(0001 0110). 



Call New Buffer Word 

Xlate L Byte 1 to 7070/74 Digit 7 

Step LB, MB to 2, 1 



'Test Stat O' 
.and Stat 4> 



QH885 

Stat 0 and Stat 4 = 00 
Xlate L Byte 2 to 7070/74 Digit 8 
Step LB to 3. Save Current Buffer 
Word in FP 1 in Case of Decompression 



Stat 4 



Set F = 1111. Set MB = 1. 
Buffer Address to R . Partial 
7070/74 Word to H 



Xlate L Byte 0 to 7070/74 Digit 4 
Step LB to 1. Look for BRTC 
Save Buffer Word in FP 1 in Case 
of Compressed Word 

Stat 4 .. 



Tape Wore 
sError > 



Xlate L Byte 1 to 7070/74 Digit 5 

Step LB, MB to 2, 0 

Look for BRTC or Signed Digit 



QH880 

Interrupt Base Address to R. 
Constant 24 to L. 



Test Stats 



^S^^O^and^^/ 








QH880 






QH880 


High-Order Half 7070/74 Word to H 
Xlate L Byte 2 to 7070/74 Digit 6 
Step LB to 3. Look for Signed Digit 




Stat 0 and Stat 4 = 01. Compressed 
Word 

Set Stats 6-7 and LB to Point to 


Jy^rt^Stat 4 
XCompressechs, ''^ es 




Byte 1. Right-Justify Partial High- 
Order Half 7070/74. Create 
Low-Order Half 7070/74 Word in 
M 


Word s' 


QH880 






No 

r\uooi 


Set Stats 6-7 and LB to Point 


l ED7 J 



Xlate L Byte 3 to 7070/74 Digit 7 
Step LB, MB to 0, 1 
New Source to L and WS 1 
Look for Signed Digit 



to Byte 2. Create Low-Order 
Half 7070/74 Word in M 



Compressec 
V Word / 



^-Stat 4 
Yes 



QH881 



QH881 



QH885 

Stat 0 and Stat 4 = 01 Compressed Word 
Set Stats and LB to Point to Byte 1 
Shift Digit 6 to F Set MB to 0 



Xlate L Byte 0 to 7070/74 
Digit 8. Step LB to 1 
Look for Signed Digit or BRTC 



Shift Digit 6 to F. Set Stats 6-7 
and LB to Point to Byte 3 



. Stat 4 



Compressec 
V Word / 



QH885 

Set Stats and LB to Point to Byte 2 
Shift Digit 5 to F. 



Compressed 
\ Word / 



QH881 



QH885 



Xlate L Byte 3 to 7070/74 Digit 9 
Step MB to 2. Look for BRTC 
New Buffer Word to L and WS 1 



Stat 4 



Compressed, 
V Word / 



Set Stats and LB to Point to Byte 3 



QH885 



QH881 

1 — i X i — ■■■ I 

Stat 0 and Stat 4=11. Buffer End 
WFN to AND. Send High-Order Half 
7070/74 Word to GP 0. Step MB to 3. 
Zero M Byte 3. Set Numeric Mode and 
Digit Count in GP 1 



Xlate L Byte 1 to 7070/74 
Digit 9. Step MB to 2 
Working Address to L 



Test Stats N 
.0 and 4 / 



QH881 

Shift Digit 5 to F. Set Stats 
6-7 and LB to Point to Byte 0 
Set Stat 5 for Sign in FP 1. 



QH881 



1 


Sign to Low-Order Half 7070/74 Word 
Working Address to L 


i 


.DV7, A 


Step LB, MB to 0, i 
, 


3 

1 





Start Storage for High-Order 
Half 7070/74 Word 
Buffer Address to L 



QH881 

Stat 0 and Stat 4 = 01. Compressed 
Word. Shift Digit 5 to F . Set Stats 6-7 
and LB to Point to Byte 1 



Stat 4 



Tape Word 
\ Error / 



■Tape Word 
V Error / 



QH881 



Interrupt Base Address to R 
Constant 24 to L 




1 




Store High-Order Half 



QH885 

Store High-Order Half 7070/74 Word if Not 
LLRR. Zero Byte 3 of 7070/74 Word, Low- 
Order Half. Turn Off Stats 4-7. Step MB to 
0. Update Working Address. If RDW Match 
Set Stat 3 = 1. Store Low-Order Half 7070/ 
74 Word if Not LLRR. WFN to EOR. 
Working Address to R. Step MB to 1 



Store High -Order Half of 7070/74 Word 
if Not LLRR. Alpha Sign to Low-Order 
Half of 7070/74 Word. Working Address 
to R. Step LB, MB to 2, 3 
Update Working Address and Place in L. 
Stop Address to R. Turn Off Stat 4. 

Step MB to 0. Zero M Byte 0. 

Store Low-Order Half 7070/74 Word 
if Not LLRR. WFN to AND. 

Step MB to 1 



Note: The numeric digit suffix inside all 
off-page connectors tells which of 
the eight sheets to come from or 
go to. 



Meaning 
Buffer End 



RDW End 



QH886 

New Buffer Word to L and WS 1 
Store Low-Order Half 7070/74 Word 
Compare Next Buffer Byte to Delta 
If RDW Match, Set Stat 3=1. WFN 
to Cross. Zero M for Next 7070/74 
Word. Assume No Delta and Xlate L 
Byte 0 to 7070/74 Dig ft 0. Look for 
BRTC. Buffer Address to R. Step LB 
to 1 



RDW Match 



Mode (1 = alpha, 0 = numeric) 
RDW match 

00 = ELB 10 = ELBR 

01 = ELBZ 1 1 = ELBC 
(For unload ops, stat 4 
equals compressed word or TWE) 
Buffer byte address 

0 = EUB 1 = EUBR 
LLRR 



6 

7 

R Sign 
L Sign 



X N. No X 

Aode Chang^ ( 3 



QH886 

Numeric Mode Indicator to GP 1 Byte 3 
Set Stats 6-7 = 00 to Point to Buffer 
Byte 0 Next. WFN to AND 



QH882 

Set Indicator in GP 1 Byte to 
Numeric Mode. Set Stats 6-7 
to 10 to Point to Buffer Byte 2 
Next 



QH882 



Set Stat 3 = 1 if Working Address 
Equals Stop Address. WFN to EOR 
Compare Next Buffer Byte to Delta 
WFN to Cross. Call Next Buffer Word 
Xlate L Byte 2 to 7070/74 Digit 0 
Step LB to 3. Look for BRTC 



Mode 

Change 
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QT 200 JFE 



Return to I -Fetch 



QT 120 JFE 
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QH902 

Set Stat 2=1. Set LB = 0 
GP 1 to L. If GP 9 Byte 3 
Is Non-Zero Set Stat 3 = 1 
Set BS = 1 1 1 1 

Convert (7070/74 to EBCDIC) 

L Byte 0 (7070/74 Digits 6,7) 
to M Byte (per MB) 

Step LB, MB Up 
Working Address to L 



QH902 



MB = 3 



QH905 

Add 4 to Buffer Address and 
Store M at That Address 
Invert R Sign Stat. If Prior 
R Sign Was 0, Subtract 8 From 
Buffer Count in H 



Mode Change 



Was 
MB = 3 



QH905 

'Set Stat 2=1. .Convert (7070/74 
to EBCDIC) Next L Byte to Next 
M Byte. Step LB, MB Up 
Buffer Address to R 



Set Stat 2=1. If Character 
Indicator = 2, Set LB to 3 
GP 0 to L. If GP 9 Byte 3 Is 
Non-Zero, Set Stat 3 to 1. 

Set BS = 1111. Convert (7070/74 
to EBCDIC) L Byte (per LB) to 
MB (per MB) Step LB, MB Up 



MB = 3 



QH905 



MB = 3 



Add 4 to Buffer Address and 
Store M at That Address 
Invert R Sign Stat. If Prior 
R Sign Was 0 Subtract 8 
from Buffer Count in H 



QH902 

Set Stat 2 to 1. Step LB Down to 1. 

GP 1 to L. If GP 9 Byte 3 Is 
Non-Zero, Set Stat 3 = 1 
Set BS = 1100. Convert (7070/74 to 
EBCDIC) L Byte 1 (7070/74 digits 
8,9) to M Byte (per MB) 

Step LB, MB Up 
Working Address to L 



Was 
MB = 3 



Add 4 to Buffer Address and 
Store M at That Address. 

Invert R Sign Stat. If Prior 
R Sign Was 0, Subtract 8 Fromi 
Buffer Count in H 



RDW End 



LB = 3 



Buffer Full 



Buffer Full 



RDW End 



LB = 0 



Buffer Full. 



QH905 



QH905 



Call Next 7070/74 Word, Low - 
Order Half. Set MD, F to E0 
Stop Address to R 



Set WFN to EOR.. GP 1 to L 



Convert (7070/74 to EBCDIC) 
Next L Byte to Next M Byte 
Step LB, MB Up 



QH905 

Convert (7070/74 to EBCDIC) 

L Byte 0 (7070/74 digits 6,7) 
to Next M Byte 
Step LB, MB Up 



MB = 3 



| QH905 

Convert (7070/74 to EBCDIC) 

L Byte 1 (7070/74 Digits 8, 9) 
to M Byte (Per MB) 

Set BS = 1100. Step LB, MB Up 
Working Address to L 



CL4 I CZ4 I I DU5 



EG5 DA4 EH5 



DV5 CM4 



EF5 CY4 DP5 



CV4 CW4 I DN5 



CH4 CJ4 DM5 ED5 



QH891 



Subtract 4 from Buffer 
Address and Store Back 



Subtract 4 from Buffer 
Address and Store Back 



Subtract 4 from Buffer 
Address and Store Back 



Subtract 4 from Buffer 
Address and Store Back 



Shift Right Twice So That: 
H = 0000A123 
M = 56700000 
(A = 7070/74 Digit 0) 

F = 7070/74 Digit 4 



QH890 

H = 7070/74 Word, High- Order Half 

F = Digit 6 

Set L = 0A1 23456 

Set M = xxxx0A12 

(A = 7070/74 Digit 0) 



All Compressed Words of 8 or 9 Digits 
Pass Through Here — — 



QH891 

Shift Last Low-Order Digit from F to M 
(M = CCCC 0000 Where CCCC Are to 
be 7070/74 Digits 6-9 in Low-Order Half 
of Word). Store 7070/74, High -Order 
Half of Word, if Not LLRR. Set MB to 2 
Step LB Down to Point to the Signed 
Digit Byte. Bring Last Buffer Word 
Worked On to L from WS 1 or FP 1 
Working Address to R 



QH890 

Set H = CCCC 0000 (CCCC = the Low- 
Order Digits of the 7070/74 Word) 

Zero M Byte 0. Step MB to 1 
M = OOxxOBBB Where BBB Are the 
7070/74 Digits 1-3 

QH890 

Zero M Byte 1. Step MB to 2 
Store 7070/74 Word, High-Order 
Half (in M) if Not LLRR 
Step LB Down to Point to the 
Signed Digit Byte. Bring Last . 

Buffer Word Worked On to L from 
WS 1 or FP 1 . Working Address 
to R*. H to M . 




All Compressed Words of 

5, 6, or 7 Digits Pass Through Here 



Stat 


Meaning 


0 

1 

2 


Buffer End 


Mode (1 = alpha, 0 = numeric) 


3 


RDW match 


4 


00 = ELB 10 = ELBR 


5 


01 = ELBZ 11 = ELBC 


6 


(For unload ops, 

stat 4 equals compressed word or TWE) 
Buffer byte address 


7 

R Sign 


0 = EUB 1 = EUBR 


L Sign 


LLRR 



QH890 



| QH890 

Put Sign in M Byte 2. Step Working 
Address (Set Bit 0 to 0) and Store in 
GP 8. Set MB = 1. Step LB Up 
Set MD and F to 5F. Start Storage 
for Store of 7070/74 Word, Low- 
Order Half. Stop Address to R. 
Subtract New Working Address 
from Stop Address 



Note: The numeric digit suffix inside all 
off-page connectors tells which of 
the eight sheets to come from or 
go to. 



Address Not Equal. Check Next 
Buffer Byte for Delta by EOR and 
Place Result in M Byte 1 
Buffer Address to R. Set Stat 2 = 1 
Return to New 7070/74 Word 



QH890 



i 

Do Not Store 7070/74 Word 


Store 7070/74 Word, Low-Order Half 


Delta (5F) to M Byte 1 


Delta (5F) to M Byte 1. WS 1 to L 


WS 1 to L (WS 1 Always Has the 


(WS 1 Always Has the Next Buffer 


Next Buffer Byte to be Read) 


Byte to be Read) WFN to EOR 


WFN to EOR 








QH890 


QH890 

i i 



QH890 



Address Equal. Check Next Buffer 
Byte for Delta by EOR and Place 
Result in M Byte 1. Buffer Address 
to R. Set Stats 2, 3=11 
Return to New 7070/74 Word 



RDW End. WFN to AND. 
Set GP 1 to Zero Except 
for Mode Indicator in Byte 3 
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From 3rd Level 1 -Fetch 



Store Shift Count in 
MD and F (digits 8-9 
of 7070 instruction) 



Test Digit 6 of 7070 
Instruction for Acc 
Number 



Set Constant in M Reg for 
Shift Right and Round 



Test Digits 8-9 for Number 
of Places of Shift 



QH61 1 



L = GP 11 
R = GP 7 
M = See Insn 
H = IAR 
J = 0 
G = 0 
MD = R1 



LB = 1 
MB = 1 
WFN = 000 
LSFR = 11 
Stats 0-3 = Off 
Byte Stats =1111 



Shift Greater 
Than 10 



Machine Check 



> 10 



Shift 

Count 



= 10 



J < 10 

Set MD to 0 and Check 
Digit 6 for Possible No-Op 



Set MD = 0 and F = 10 
Check Digit 6 of Instruction 
for Possible No-Op 



H Reg = Low- 
Order Word 



MD Counts High- 
Order Zeros 



An All -Zero Word 
Loops 10 Times 
Before Exiting 



Shift Left and Count 



Do First Low-Order Shift. 
Add 1 to MD 

Prepare G2 so a Maximum 
of 10 Shifts Will Be Done 



1 QH612 

Do High -Order Shift 



Do Low-Order Shift 
MD + 1. G2 - 1 



Digit 6 > 
.3 or 0 



Fetch Acc High Order 
Word to H Reg and 
Bring Low-Order Word to M 
Zero Sign Byte 



No-Op and Return to D1L 



Digit 7 



,Test for Type of. 
Shift Operation 



Shift Left 

Do First Low-Order Shift 



1 »"■■■■ — — -■ 




Shift Right and Round 


Shift Right 




1 




Do First High Order Shift 


> 





Digits 8-9 
. =0 . 



Digits 8-9' 
Equal to O' 



No-Op and Return to DIL 



Do Low-Order Shift G2 - 1 



No /Byte 0 \ t • 1 







-Shift Count 



G2 =0 



G2 = 0 





Correction Cycle Right Shift- 
Entire Word 1 Digit 




Do Low-Order Shift 
Yes 


X 










1 


, QH612 



Do High-Order Shift 



Start Storage to Store 
Low-Order Result 



Prepare Byte Stats and 
Start Add Cycle. If Not 
Shift Right and Round, 
Add Zeros 



Note: All Shifts are One Digit (4 Bits) 
Per Machine Cycle 



Store Low-Order Word 
and Start Storage to Store 
High-Order Word 



Store High -Order Word 



Shift Left 
and Count 



Start Storage to Store 
Count Digits in Index 
Word 



Return to DIL 



Store Count and Force 
Index Sign Plus 



Index 
Word 00 



Machine Check 



Return to DIL 



FIGURE CLF 802. SHIFT CONTROL (ESC) 
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FIGURE CLF 804. FIELD DEFINITION (EFD) 
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QH101 




FIGURE CLF 808. DO INTERPRETIVE LOOP (DIL) 
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© 



Need Nexf Half 
Source Word 



Yes 




QH736 



QH733 



High-Order Half Destination 
Word to M 



High-Order Half Source Word to L. 
High-Order Half Destination Word to M. 
Turn on Stat 1 (Remember to Test for 
Overflow Because High-Order Half 
Word is Being Processed) 



Byte Not 
Exhausted 




Yes 



r 






Move Next 7070/74 Digit to 
Destination. Set Stat 3 = 1 







No 




Check Next 
Half Byte for 
Zero 



Finished with 
High-Order 
Half Word 





© 




No Sign Change During EFST. 
Start 1st Block of DIL 



Move Next 7070/74 Digit to| 
Destination. Set Stat 3 = 0 
Decrement G1 




Yes 



Yes 




Sign Change During EFST. 
Turn On Indicator 3 



Yes 



Check Next Whole 
Byte for Zeros 




QH736 



Set BS to 1111. Pass High-Order 
Half Word Through Adder. 
Indicator 4 to L. Generate 1111 
0000 in M Byte 3 



Yes 







Indicator 3 to FP2. 

Test Indicator 3 for Halt 



No Sign Change 
— —^Indicator in/ 
Halt Mode 



Return to 1-Fetch 



Yes 



Start 2nd Block of DIL 



Yes 



Is High-Order Half 
Word Checked? 




Yes 



Move Next 7070/74 D igit to 
Destination. High-Order Half 
Source to L. Decrement Gl. 
Set Stats 1 and 3=11 



Overflow Defected. Move Halt 
[ Mode Portion of Indicators to 
M Byte 3. GP 1 1 to R 



Move Next 7070/74 Digit to 
Destination. Decrement Gl. 
Set Stat 3 = 1 



Stat 1 Indicates High- Order 
Half Word Being Processed 



Overflow Detected. Move Half 
Mode Portion of Indicators to 
M Byte 3. GP 11 to R 



NOP 



No 




Turn On Indicator 




Yes 



/'.Indicator 'v 
in Halt 
Mode ' 



No 




Call High-Order Half 
of Destination 



Move Nexf 7070/74 Digit to 
Destination. Decrement Gl. Set 
Stat 3 = 0 



Was the Field Definition 
0-8 






Yes 


Set GP 1 1 Byte 3 Non-Zero 
to Indicate an Overflow 








Yes 



Move Next two 7070/74 Digits] 
| to Destination (positions 0-1). 
Set Stat 1 = 1 



Move Next 7070/74 Digit 
to Destination (Position 1). 
Set Stats 1 and 3 = 11 



Stat 1 On Indicates 
High-Order Half Word 
Being Processed 




Stat 


Usage 


0 


Test for field overflow. 


1 


Field definition stop position greater than the start 
position. 


2 


If sign change and not 0-9 field, set the sign 
change indicator. 


3 


Source byte not exhausted. 


4 


EMAD operation. 


5 


Inhibit sign change indicator turn-on. 


6 


Set the destination sign to the source sign but 
don't set the sign change indicator. 


7 


Field definition start position equal to zero. 


Gl 


Number of oositions to be moved. 




Store Low-Order Half of 
Destination Word. Turn 
Off Stat 7 





Yes 



Set GP 1 1 Byte 3 Non-Zeroj 
to Indicate an Overflow 



Yes 






No 


Sign Change Indicator to R 


* 






i 

© 



Return to I -Fetch 



FIGURE CLF 810. FIELD STORE (EFST) AND MOVE ACCUMULATOR DIGITS (EMAD) (SHEET 2 OF 2) 



IBM CONFIDENTIAL 































Form Z22-2833-4 
Page Added 8/1/66 
by FES Z22-6600- 1 




FIGURE CLF 814. EDIT NUMERIC TO ALPHA (ENA, ENS, ENB) 
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Test L Reg Bit 0 
High-Order Digit of 
L Byte 0 = R2 (Indicator 
Number) Shifted Left One Bit 
Indicator Number = Oxxx in Binary 



X 




From Third Level 1-Fetch 




QH301 


Place Indicator Number in MD. 
Fetch FP 2 (Indicators 0-3) to M 






Fetch FP 3 (Indicators 4-7) to R 







Mndicator^V 4-7 
sP-3 or 4-7/ 



L = GP 
R= GP 
J = 0 
F = 0 
G = 0 



Set MB to Specify Which 
Byte in M to Test 



Move Indicator Byte to MD 



Move FI 
Set Stat 



Stat 0 = 1 and MB = 0 
Means Indicator 4 




Stat 0 = 1 and MB not 0 
Means Indicators 5-7 













Reset and Restore Indicator 4 
MD = 0 Means Indicator Was Off 



Stat 0 = 0 Means Indicators 0-3 




Reset and Restore Indicators 0-3 




QH13 



Return to DIL via Unsuccessful Branch 



I 
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FIGURE CLF 818. RECORD GATHElVSCATTER (ERG, ERS) 
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FIGURE CLF 820. EDIT ALPHA TO NUMERIC (EAN) 
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Note: The somewhat unusual sign manipulation 

is a result of the operands being reversed from the 
normal sense when the subtraction is done. 



FIGURE CLF 822. INDEX WORD ADD/SUBTRACT (EX A, EX5) 
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Store Index Word and Return 
to DILvia Unsuccessful Branch 



Store Index Word. Fetch 7070 
Branch Address to 7070 1C in M 



Return to DIL via Successful Branch 



FIGURE CLF 824. BRANCH INCREMENTED INDEX WORD (EBIX) 
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FIGURE CLF 826. BRANCH DECREMENTED INDEX WORD (EBDX) 
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s' 


From 3rd Level 1- Fetch 




QH411 



LB = 1 
MB = 3 
J = R2 
F = 0 
G = 0 
MD = R1 
Stats 0-3 Off 



Byte Stats =1111 
Local Store 10 
L = GP 11 
R = 0 

M = See Insn 
H = Unknown 



High 



Sign x. 
.High, Equal y 
NOT Low/^ 

[ Equal 



Lookup Equal Only 


Lookup Eqi^al or High 


1 

Lookup Lowest 


Set Stat 4 = 1 

1 


Set Stats 4 and 6 = 1 
— 


Set Stat 7 = 1 



Fetch RDW Address 



'Argument's. 
Sign Minus, 



Reverse Stats That 
Determine Compare 
High and Low 



Fetch Search Argument 
(Acc 3) Generate 66 
(Interrupt Count) 



Compare First Half of 
Table and Argument 
Word 



7074 Error 










7074 Error 










7074 Error 



Fetch Index Word 98 
(Table Increment Value) 



Index Word 
v 98 = 00 / 



Fetch RDW Word. Incre- 
ment RDW Table Address 



RDW Sign 
s Valid > 



Yes X RDW StarK 
Stop S' 

No 

Fetch Table Word 



QH412 



Back from EFD after 
Field Defining 



Yes ^ interrupt 
~ Count = 0, 



Go to Interrupt Routine 
after Restoring Acc 3, 
7074 1C, and M50 IAR 



Channel > 
Interrupt 
Pending' 



Lookup 
Equal 
sor High/ 



Increment RDW Start 
Address by 6-9 of 
Index Word 98 




QH413 



High ^Jable W°rd x Low 
— - — \High, Equal^ — — — 
N^r Low/^ 

Equal 

Compare Second Half of 
Table and Argument 
Word 



High 



^Table Word N 
.High, EquaL 
^ or Low ^ 

Equal 



/Lookup's^ 
‘Equal or Equal' 
"''and High^ 



Lookup 

Lowest 



Store Address of Find in 
Positions 2-5 of Index 
Word 98 




Compare RDW Start 
Address to Stop Address 



Increment 7074 1C Value 



Start > Stop 



Fetch Next Table Word 



Store Incremented 
7074 1C in FP 0 



Lookup Low 



First Find 



Last RDW 



Store Incremented 
7074 1C in FP 0 



Store Decremented 
Count Value in WS 0 








Compare Si 
Argument a 


gns of 
nd Table 



Place Find in Acc 3 
as New Argument 



Return to DIL for 
Next 7074 Instruction 



FIGURE CLF 828. TABLE LOOKUP OPERATIONS (ELE, ELEH, ELL) 
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FIGURE CLF 830. UNSIGNED ADD/SUBTRACT (EUNA, EUNS) 
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From 2nd Level I -Fetch 



Op Code 



27,37 



QH011 

Fetch Low-Order Portion of Instruction 
From GP 11. Shift Instruction Left 
to Position R1 for Function Branch. 

Set LB = 0. Set WFN to Cross 



26,36 



QH011 



Shift Instruction Left to Position R1 
for Function Branch. Bring Index 
Word Address From GP 10 Byte 3 
(decimal). Set WFN to Cross. Set 
MB = 0. Set J Reg to 0 (for Field 
Store). 



QH012 



Shift Instruction Left to Position R1 
for Function Branch. Bring Index 
Word Address from GP 12. 

Turn Off Stats 0-3 



EmulatorN. No 
Stat On / 



Emulator 
.Stat On 



Emulator 
Stat On . 



Machine Check 



Machine Check 



Turn Off Stats 0-3. 7070 Digits 6-7 
to W Right for Shift Control. 

Bring Acc Base Address to R. 
Function Branch on R1 



Op Code 
27 



Test Condition 
Code 



OC-O 

0C-1 

Unload Buffer 





T — % 


r 

OC-4 


OC-8 






OC-5 


OC-9 






OC-6 


0C-A 


0C-2 


OC-3 


OC-7 


0C-B 



Fetch High-Order Portion of Index 
Word from Storage (for Index Operations). 
Fetch RDW Address from GP 1 1 
(for Lookups). Function Branch on Rl. 



Shift Control 



Convert Address 
to Binary 



Load Buffer 



L = GP 11 
R = GP 7 
M = CRlR20xxx0 
H = IAR 
J = 0 
F = 0 
G = 0 



MD - Rl 

LB = 1 

MB = 1 

WFN = 000 

LSFR = 11 

Stats = 0000 1110 

Byte Stats =1111 



)C-8 0C-C 
)C-9 0C-D 
DC-A 0C-E 
K-B OC-F 

Invalid Ops 



Condition" 
Code = 1 „ 




Return to DIL via 


Return to DIL via 


Successful Branch 


Unsuccessful Branch 



Mover 
Latch 
■sfO v 



Fetch High -Order Half of Index Word 
From Storage and Fetch RDW Address 
From GP 11 (for Edits, ERG, and ERS) 
Move R2 to M Byte 0 (for XCC and EB1) 
Set Condition Codes to Mover Latches. 
Turn Off Stats 0-3. Function Branch 
on Rl 



Field Store 



36-0 



Edit Numeric to Alpha 



36-1 

Edit Numeric to Alpha 
with Blank Insertion 



36-2 

Edit Numeric to Alpha 
with Sign Control 



36-3 

Branch On Indicator 



36-4 

36-5 



« 


1 


36-8 






36-9 






36 -A 


36-6 


36-7 


36-B 



36-C 

36-D 

36-E 

36-F 



Record Gather/ 


Edit Alpha to 


Transfer Condition 


Invalid Ops 


Scatter 


Numeric 


to Indicator 




L= GP 10 
R = GP 11 
M = R2R2R20xxx0 
H = Unknown 
J =0 
F = 3 

G =0 



MD = Rl 
LB = 1 
MB = 0 

Stats = 0000 1110 
Byte Stats =1111 
WFN = 000 



37-0 

37-1 



37-2 



37-3 



L= GP 11 

R = 0 

M = 7RlR20xxx0 
H = Unknown 
J = R2 
F = 3 
G = 0 



37-4 

37-5 

37-6 



37-7 



37-8 

37-9 

37-A 

37-B 



37-C 

37-D 

37-E 

37-F 




MD = Rl 
LB = 1 
MB = 3 

Stats = 0000 1110 
Byte Stats =1111 
WFN = Unknown 



FIGURE CLF 832. THIRD LEVEL l-FETCH 
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The one-digit adder is under Micro- 
program control. The micro-order 
controls the U 4-7 true/complement 
circuits and the outgating to W 4-7 
and Stat 4 (carry stat) 



One Digit Adder Control 



ROSDR 83 
Not ROSDR 54 
Not ROSDR 55 




ROSDR 83 



Not ROSDR 54 






Subtract 


ROSDR 55 


A 







Set Stat 4 per Digit Adder 



Gate Digit Adder to W 4-7 



Output 

Gating 



XE201 







Correction 


and True/Com 


pi Decode 






(X E 1 0 1 ) 




Add 








Subtract 


Hex 


Add 


Subtract 




Input 


Output 


Output 


U4 (8) 


0 


0 


9 


U5 (4) 


1 


1 


8 


U6 (2) 


2 


2 


7 


U7 (1) 


| 




a 

9 


8 

9 


T 

0 




A 


2 


7 




B 


3 


6 








E 


6 


3 




F 


7 


2 



U4 Corrected (8) 



U5 Corrected (4) 



U6 Corrected (2) 



U 7 Corrected (1) 




Input correction for decimal 
values greater than hex 9 and 
true/complement conversion 
for U-inputs 



Carry Lookahead circuits provide a high- 
speed path to develop and propagate 
carries for the adder inputs 




Carry Lookahead Circuits (XE131) 



(Decimal Value) 



Carry Out of Binary Adder (16-17-18-19) 





I 



Position 3 Adder Circuit 



(position 2, 1 and 0 are similar) 




1 



I 

I 



When this digit is set into the W- 
latches, mover parity detection will 
check for proper circuit operation 
(odd parity) 



I _ 
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Function 


Location 


Channel 1 


Channel 2 


Channel 3 


TRANSLATE 












File Latch ) 












Load Latch 




XE501 


XE511 


XE511 


Odd Latch , 












CAS Control 


QR920 


QR920 


QR920 


Translate Latch 


XE521 


XE521 


XE521 


CAS Control 


QV103 


QV103 


QV103 


WM INSERT/DELETE 










WS Control 




XE621 


XE801 


* 


WM PRESERVATION 










Sel Ch Read Store Routine 




QR860 and QV105 




— 


WM Stat Latch 




XE401 




— 


Split R/W Latch 




KC511 






INTERFACE LINES 










(to the Sel Ch) 










Bus In Gating Bits 












P 


XE561 


XE741 / 






0-1 


XE531 


XE711 






2-3 


XE541 


XE721 


> * 




4- 5- 6- 7 


XE551 


XE731 


/ 


Special 


Char Detection 


XE571 


XE751 




Service In 


XE631 


XE811 J 




(to the Interface Lines) 










Bus Out Gatina Bits 






*\ 






P-0 


XE581 


XE761 






1-2-3 


XE591 


XE771 






4- 5-6-7 


XE601 


XE781 


> * 


Special Char Detection 


XE611 


XE791 




Service Out 


XE621 


XE801 J 





* Selector channel 2 and 3 use ALD pages XE701 to XE841 . 
They each have identical card and pin locations 

The 'psuedo-location' shown in line 5 of the ALD logic 
block (gate-board-card) is Y-P4xx, and calls attention 
to the note that specifies the actual location for each 
channel 

The note points out that the gate and board locations 
are: 



Channel 2 *-01 E E4 xx xxx 



Channel 3 *-01 E E3 xx xxx 



Frame 








Gate 


Board 




Card 




Pin 
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CAW Control 


Translation 


Wordmark Considerations 


l i 

i i 

Bit 7 j Bit 6 | Bit 4 

1 1 


Table 


(General Rule) 
Interface Code— ►EBCDIC II 


Special 

Character 

Exceptions 


Read 

(Bus-in Lines Translation) 


Tape Move Odd 


1 


OOxx xxxx— ►OOxx xxxx 
lOxx xxxx ->-01 xx xxxx 
(IF bit one must be zero) 


Yes 


CCW 39 equal to a 1-bit activates the 
microprogramming during the sel ch read 
store routine, so that the wordmarks in 
1410 core storage are preserved as the 
I/O byte is read into bits 1-7 of each 
location 


Tape Move Even 


1 


01 xx xxxx— ►OOxx xxxx 
1 Ixx xxxx -► 01 XX xxxx 
(IF bit one must be one) 


Yes 


Disk Move Even 


1 


0 1 xx xxxx -► OOxx xxxx 
1 Ixx xxxx -► 01 xx xxxx 
(IF bit one must be one) 


Yes 


Tape Load Odd 


1 


OOxx xxxx — ► ?0xx xxxx 
lOxx xxxx — ►? Ixx xxxx 
(IF bit one must be zero) 


Yes 


Wordmark insert/delete circuits are 
active and block word separator characters 
on the bus in lines and insert bit zero on 
the next character (unless the 2nd 
character is also a word separator character) 


Tape Load Even 


1 


01 xx xxxx — ► TOxx xxxx 
1 Ixx xxxx— ►?0xx xxxx 
(IF bit one must be one) 


Yes 


Disk Load Even 


No 


xxOO xxxx — ► xx 1 1 xxxx 
xxOl xxxx— ► xx 10 xxxx 
xx 10 xxxx-^-xxOl xxxx 
xx 1 1 xxxx — ► xxOO xxxx 
(IF bits 2 and 3 are inverted) 


No 




Write 

(Bus-out Lines Translation) 


Tape Move Odd 


2 


EBCDIC 1 1 —►Interface Code 

?0xx xxxx— ►OOxx xxxx 
? 1 xx xxxx — ► 1 Oxx xxxx 


Yes 


The EBCDIC II wordmark bit (bit zero) 
does not affect the translation 


Tape Move Even 


3 


?0xx xxxx— ^0 Ixx xxxx 
? 1 xx xxxx — ► 1 Oxx xxxx 


Yes 


Disk Move Even 


4 


?0xx xxxx— ►O Ixx xxxx 
? 1 xx xxxx — ► 1 1 XX xxxx 


Yes 


Tape Load Odd 


2 


?0xx xxxx— ►OOxx xxxx 
? 1 xx xxxx — ► 1 Oxx xxxx 


Yes 


Word separator characters are generated 
and precede each wordmarked character 
or a word separator character from core 
storage out to the interface bus out lines 


Tape Load Even 


3 


?0xx xxxx— ^0 Ixx xxxx 
?lxx xxxx— ►! Ixx xxxx 


Yes 


Disk Load Even 


No 


xxOO xxxx-^xxl 1 xxxx 
xxOl xxxx— ►xx 10 xxxx 
xxlO xxxx— ► xxOl xxxx 
xx 1 1 xxxx -► xxOO xxxx 
(EBCDIC II bits 2 and 3 
are inverted) 







Table 1 Read (IF Bus In to EBCDIC II) Translation 
0-3 




Table bytes are identified by dotted, striped or blank boxes. These serve to identify 
outputs that are invalid parity and result in Channel Data Check during various types 
translations 



the translator 
of 1410 I/O 



Operation 

tape-move-odd 
tape-move-even 
disk -move-even 
tape-load -odd 
tape -load -even 
disk-load-even 



Invalid Parity 
no pattern 

striped or dotted pattern 
striped pattern 
no pattern 

striped or dotted pattern 
(all bytes have correct parity) 



Word Separator for tape-load-odd is hex 6D: for tape-load-even it is hex 2D 



Table 2 Write Translation (tape-move/load-odd) 
EBCDIC II ^0-3 



Table 3 Write Translation (tape-move/load-even) 



4-7 



J 


0/8 


1/9 


2/A 


3/B 


4/C 


5/D 


6/E 


7/F 


0 


10 


20 


3A 


00 


80 


90 


A0 


B0 


1 


01 


11 


* 

21 


31 


81 


91 


21 


B1 


2 


12 


22 


3A 


02 


82 


92 


A2 


B2 


3 


03 


13 


23 


33 


83 


93 


A3 


B3 


4 


04 


14 


24 


34 


84 


94 


A4 


B4 


5 


05 


15 


25 


35 


85 


95 


A5 


B5 


6 


06 


16 


26 


36 


86 


96 


A6 


B6 


7 


07 


17 


27 


37 


87 


97 


A7 


B7 


8 


18 


28 


3A 


08 


88 


98 


A8 


B8 


9 


09 


19 


29 


39 


89 


99 


A9 


B9 


A 


1A 


2A 


* 

CJ 

> 


0A 


8A 


9A 


AA 


BA 


B 


0B 


IB 


2B 


3B 


8B 


9B 


AB 


BB 


C 


OC 


1C 


2C 


3C 


8C 


9C 


AC 


BC 


D 


0D 


ID 


2D 


3D 


8D 


9D 


AD 


BD 


E 


0E 


IE 


2E 


3E 


8E 


9E 


AE 


BE 


F 


OF 


IF 


2F 


3F 


8F 


9F 


AF 


BF 



EBCDIC II codes 21,2A,A1 , and AA cause unit 
check because of a bad parity translator output 

EBCDIC II codes 2D, or AD are the word separator 
for tape-load write operations 



EBCDIC II 



V 



4-7 



0-3 





0/8 


1/9 


2/A 


3/B 


4/C 


5/D 


6/E 


7/F 


0 


50 


60 


40 


40 


CO 


DO 


E0 


F0 


1 


41 


51 


*61 


71 


Cl 


D 1 


61 


FI 


2 


52 


62 


42 


42 


C2 


D2 


E2 


F2 


3 


43 


53 


63 


73 


C3 


D3 


E3 


F3 


4 


44 


54 


64 


74 


C4 


D4 


E4 


F4 


5 


45 


55 


65 


75 


C5 


D5 


E5 


F5 


6 


46 


56 


66 


76 


C6 


D6 


E6 


F6 


7 


47 


57 


67 


77 


C7 


D7 


E7 


F7 


8 


58 


68 


48 


48 


C8 


D8 


E8 


F8 


9 


49 


59 


69 


79 


C9 


D9 


E9 


F9 


A 


5A 


6A 


4A 


4A 


CA 


DA 


EA 


FA 


B 


4B 


5B 


6B 


7B 


CB 


DB 


EB 


FB 


C 


4C 


5C 


6C 


7C 


CC 


DC 


EC 


FC 


D 


4D 


5D 


6D 


7D 


CD 


DD 


ED 


FD 


E 


4E 


5E 


6E 


7E 


CE 


DE 


EE 


FE 


F 


4F 


5F 


6F 


7F 


CF 


DF 


EF 


FF 



EBCDIC II codes 2 1 or Al cause unit check because 
of a bad parity translator output 

EBCDIC II codes 2D or AD are the word separator 
for tape-load write operations 



Table 4 Write Translation (disk-move-even) 
EBCDIC II \ 0-3 






4-7 



J 


0/8 


1/9 


2/A 


3/B 


4/C 


5/D 


6/E 


7/F 


0 


50 


60 


7A 


40 


CO 


DO 


E0 


F0 


1 


41 


51 


* 

61 


71 


Cl 


D1 


61 


FI 


2 


52 


62 


* 

7A 


42 


C2 


D2 


E2 


F2 


3 


43 


53 


63 


73 


C3 


D3 


E3 


F3 


4 


44 


54 


64 


74 


C4 


D4 


E4 


F4 


5 


45 


55 


65 


75 


C5 


D5 


E5 


F5 


6 


46 


56 


66 


76 


C6 


D6 


E6 


F6 


7 


47 


57 


67 


77 


C7 


D7 


E7 


F7 


8 


58 


68 


7A 


48 


C8 


D8 


E8 


F8 


9 


49 


59 


69 


79 


C9 


D9 


E9 


F9 


A 


5A 


6A 


7A 


4A 


CA 


DA 


EA 


FA 


B 


4B 


5B 


6B 


7B 


CB 


DB 


EB 


FB 


C 


4C 


5C 


6C 


7C 


CC 


DC 


EC 


FC 


D 


4D 


5D 


6D 


7D 


CD 


DD 


ED 


FD 


E 


4E 


5E 


6E 


7E 


CE 


DE 


EE 


FE 


F 


4F 


5 F 


6F 


7F 


CF 


DF 


EF 


FF 



EBCDIC 1 1 codes 21 , Al , 22, A2, 28, or A8 cause 
unit check because of a bad parity translator output 
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After 1-Fetch 



Name 


1410/7010 

Graphic 


EBCDIC II 
Code 


Length 


Hex ID 
for Fn Br 
to Execute 


First 

Execute 

Page 


No Operation 


N 


D5 


any 


— 


— 


Add 


A 


Cl 


1, 6, ll 2 


7 


QR210 


Subtract 


S 


E2 


1,6, ll 2 


B 


210 


Zero and Add 


? 


CO 


1,6, ll 2 


5 


250 


Zero and Subtract 


j 


DO 


1,6, ll 2 


9 


250 


Multiply 


@ 


BC 


1,6, ll 2 


2 


300 


Divide 


% 


AC 


1,6, ll 2 


0 


335 


Compare 


C 


C3 


1,6, ll 2 


4 


510 


Set Wordmark 


/ 


AB 


1,6, ll 2 


3 


375 


Clear Wordmark 


n 


8C 


1,6, ll 2 


1 


375 


Clear Storage/Clear Storage and Branch 


/ 


El 


1,6, ll 2 


D 


361 


Edit 


E 


C6 


1, 6, ll 2 


6 


180 


Zero Suppress 


Z 


E9 


1,6, 112 


8 


180 


Branch if Character Equal 


B 


C2 


1,6, 12 2 


3 


QR545 


Branch if Bit Equal 


W 


E6 


1,6, 12 2 


B 


555 


Branch if WM and/or Zone Equal 


V 


E5 


1,6, 1 2 2 


9 


565 


Branch on C-bit 


+ 


E0 


1,6, 12 2 


F 


560 


Table Lookup 


T 


E3 


1,6, 12 2 


7 


510 


Move Data 


D 


C4 


1,6, 12 2 


5 


610 


Test and Branch 


J 


D1 


1,7 2 


D 


QR573 


Branch on Channel 1 Status 


R 


D9 


72 


8 


593 


Branch on Channel 2 Status 


X 


E7 


7 2 


A 


593 


Branch on Channel 3 Status 


3 


F3 


7 2 


C 


593 


Priority Test and Branch 


Y 


E8 


1,7 


6 


582 


Store Address Register 


G 


C7 


7 


4 


385 


Store or Restore Status 


$ 


9B 


1,7 


2 


405 


Halt/Halt and Branch 


, 


8B 


1,6 


1 


— 


Read or Write without Wordmark 


M 


D4 


10 


1 


QR800 


Read or Write with Wordmark 


L 


D3 


10 


0 


800 


Unit Control 


U 


E4 


5 


— 


800 


Stacker Select and Feed 


K 


D2 


2 


— 


850 


Carriage Control 


F 


C6 


2 


— 


850 



Gen Purpose 
Stats 0-7 



A Address B Address d Modifier 



0000 7001 

(not Chained) 

0000 ?000 

(BAR Chained) 

0000 7010 

(AAR and BAR Chained) 



0001 7001 
(not Chained) 

0001 7000 

(BAR and d-mod Chained) 

0001 7010 
(AAR , BAR , and 
d-mod Chained) 



1100 7000 
(Chained J Op) 

1101 7100 
(G Op) 

1101 7000 
(Any Other Op) 

Ixxx xxx 1 

0111 7001 

0111 0101 
0000 0000 
0100 0000 



R-reg 
(GPR 6) 



R-reg 
(GPR 6) 



R-reg 
(GPR 6) 



R-reg (GPR 6) 



L-reg 8-31 
(X Ctl Field) 



(None) 



GPR 7 



(None) 



GPR 7 



L-reg 0-7 
(GPR 4 0-7) 



(None) 



M-reg 0-7 
(GPR 4 0-7) 



(None) 
GPR 7 

(None) 



(None) 



M-reg 0-7 
(GPR 4 0-7) 



1410 
Pri !nt 



Normal Entry 

1410 

1-Fetch 



(QR007) 



Branch Entry 



QR007 



Valid Op Code Test 



/S/360X Yes 

Exceptions y~ 



QR010 I No 

Use 1410 IAR to fetch 
the instruction 

QR015 1 

Test the Op-code 
character for valid 
op codes in 
three stages 



X Is \ 

Bit Zero a 
1-Bit 




L — ► GPR 7 (Store the former 1410 
IAR in the 1410 BAR) 

The new 1410 IAR (branch to address 
is in the R-reg) 



QR010 



Current 1410 IAR to GPR 5 
Previous 1410 IAR to GPR 8 
FPR 3 to the R-reg (to initiate link back 
to the 1410 Instruction stream after 
the interrupt is serviced) 



CLF 122 



(128 Combinations with No Wordmark Bit) 



Hex 4-7 



Hex 0-3 

0 7,8 — BC — F 



l O 



© © 



© © 






Does s 'v 

/ Bit One \ 
Identify Hex 0-9 
sNumeric Coding^ 



(64 Combinations Not EBCDIC II Coded) 



32 Valid Instructions 



QR020 | 

No Operation 

Fetch the next character 
from the 1410 Instr Stream 

Increment working IAR 



No y 'M Bit Zero 
a 1-Bit 



QR020 



Store/Restore Status 
Test and Branch 
Priority Test 
Half 



QR025 




QR035 



Br if Char Eq 
Br if Bit Eq 
Br on WM/Zone 
Br on C— Bit 
Table Lookup 
Move Data 



QR030 



Br on l/O-CH 1 
Br on l/O-CH 2 
Br on l/O-CH 3 
Store Address Reg 



Add 

Subtract 
Zero Add 
Zero Subtract 
Multiply 
Divide 
Compare 
Set WM 
Clear WM 
Clear Storage 
Edit 

Zero Suppress 



Set GP stats 0-7 and hex ID code to identify the class and type of instruction 



Examine the next 
character in the 
instruction stream for 
a wordmark bit 



QR050/55 

Move I/O 
Load I/O 
Unit Ctrl 



Fetch the 
X-Ctrl Field 



Unit Ctrl 

\ °P/ 



QR045 



Carriage Ctrl 
Stacker Select 



Fetch the d-Modifier 



To Execute 



Fetch the d-Modifier 



To Execute 



/A Br on Bit 2 \ 
B Br on Bit 3 
v Fn Br on Bits 4-7 . 



(32 Invalid Combinations) 



8A 8D 8E 8F 9A 9C F2 F4 F5 F6 F7 F8 F9 

(QR175) 



Improper Zoning, 
Characters, or 
Wordmarks in the 
Address Positions 



Linkout Code is Hex 10 



Invalid d-Modifier 
Characters 



Linkout Code is Hex 6 



Set the Cond Reg to 00 



Linkout Code is Hex 8 



QR185 



Fetch contents of FPR 3 (base of 
linkout table) 

Add the Linkout code to the base; use 
the sum for a main storage fetch 

The fetched word is the Linkout 
address and is set into the R-reg 



QJ600 



Halt 

Set CR to 01 



QR040 

AAR, BAR, and d-mod 
is chained from the 
previous operation 



To Execute 



Is Bit Zero N y, No 

a 1-Bit X 



XL 



QR060 

Fetch and assemble the 
address from the 
instruction stream 
(Decimal 1410 value) 



Indexing 

Required 



QR065/070 

Fetch and Add/Subtract 
the index value 
with the 
address value 



R (Branch Address) — ► SAR 



CLF 122 



QR074-086 ^ 

BCD to binary conversion 
of the address value 

QR090 | 

Add the base address 
of 1410 storage 
to the binary result 



R-reg is the 
Store it 


A address 
n GPR 6 


QR095 





Examine the next 
character in the 
instruction stream 
for a wordmark bit 



(Two Address Ops) 



R-reg is the B address 
Store it in GPR 7 



A Br on S6 
. B Br on S7 . 



S3 is 1 



Yes (d-Mod Type) 
' QR100 



QR100 IN0 

Blank the d-modifier 



Fetch the d-modifier 
from the 

instruction stream 



(One Address Ops) 

10 



R-reg is the A address 
Store it in GPR 6 



Halt and Branch Op 
Set the Cond Reg to 10 



Set S7 



Is Bit Zero 
a 1-Bit 



M or L 

OP . 



To Execute 



Not Address Double 



The B address in GPR 7 
is chained from the 
previous execution 



What 

.Type Op? 



2 Address and d-Mod 





Address 
Double 
(ID is Odd) 




£ 


The A address in 
GPR 6 is also 
the new B address 


J 





Chain the B address and 
d-modifier from the 
previous execution 



Test bits 0-7 
of GPR 3, the 
System Status 
byte 




interru ptable 

Type , 



Priority 
Alert Mode 
On 



' Interrupt > 
Pending on a 
.Stopped Ch > 



QR110 



Original IAR plus 6 is saved as the 
B address in GPR 7 

Add hex 65 (dec 101) to 1410 base address. 
Sum is new 1410 IAR address 



1410 
Pri lnt 
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Op Code 
BC (@) 



QR300/301 



Start at units position of A andB fields. 

Scan A field and zero (hex 70) corresponding B field 
character until A field wordmark is detected. 

Zero one more B— fi e I d position. 

Next B-field character is units position of 
multiplier. 



QR305 



A and B-field signs are examined; R-sign stat is set 
off if signs are alike, or on if signs are unlike. 
When units product digit (bits 4-7) is stored, 
product sign (bits 2-3) is stored: 

Like signs: R-sign stat off - store a plus 
sign (hex xx 00 xxxx) 

Unlike signs: R-sign stat on - store a minus sign 
(hex xx 01 xxxx) 



L 



Step B-ctr to new 
multiplier digit. Step 
partial product counter 
to start of new partial 
product positions. 



“W 



Get multiplier 
digit from B 
field 



0 




6et 
Multiplicand 
digit from A 
field # 



0 








Use hex 00 as 
product factor 










QR308 



Fetch product 
factor from 
multiply table 
(See Note). 



"" — 






Use hex 0 (B 
value) as the 
product factor 







QR311 



Decimal add (no carry 
in) bits 4-7 of product 
factor to partial product 
A carry-out is called 
carry 1 . 



Step partial 
product counter. | 



1 



Decimal add bits 0-3 
of product factor with 
carry 1 , carry 2, and 
previous partial product 
value. A carry-out 
is called carry 2. 



Yes 




J 



QR313 



Store partial product 
word in main storage, 
and fetch next word 
before continuing. 



Note: 



To fetch product of B and A-field factors from multiply 
table. 



1 . Emi t from ROS — ► Y (Base Address of multiply table) 

2. Take B-field digit (not 0) 

Shift left four 

Shift right one 
Add to # 1 result 

3. Take 8 bit off A-field digit (not 0 or 1) 

Add to ^2 resu 1 1 



^3 sum is byte address of product byte 
of A and B-field factors. 

Bits 4-7 are units digit of product. 

Bits 0-3 are tens digit of product. 



Example: 



B factor is 7 
A factor is 5 



2100 



0000 01 1 1 
0111 0000 
0011 1000 



0101 



0038 (binary add) 
2138 



0005 (binary add) 
213D 



byte at 21 3D is hex 35 



Example: 



A field 


623 


B field (before) 


65A0F5 


B field (after clearing) 


650000 


Initial partial product 


0000 






B 

Factor 


A 

Factor 


Product 

Factor 




With first B factor, and with all 
A factors, fetch product 
factors, and decimal add them 
to partial product . 


5 


3 


15 


00 
^ 15 


5 


2 


10 


(decimal 

add) ^ 

\ 011 

X30 

31 


5 


V 

6 


30 


Step to next B-field position and 6031 15 

clear it. 


Step again for next B factor 
Use it with all A factors to 
fetch another series of product 
factors; add them to partial product, 
properly aligned. 


V 

6 


3 


18 


1 1 
18 


V 

6 


2 


B 


(decimal ^^329 

add) Li 

\ 044 

^ 36 
40 


V 

6 


V 

6 


36 


Step to next B-field position v 

and clear it . 0 

t 


B and A-field wordmarks end v 

multiply execution. (final B field) 040495 



V 



Partial product is 
saved in main storage 
as it is developed. 



Store a standard zero 
(hex 70) in next B- 
field position, clearing 
last multiplier. 



Yes 




A hex F0 is 
actually stored 
in B field 



Yes 



Product all 



No 



Set A-field 
counter back 
to units of 
A field. 



QR308 






zero 

V 


/ 


' QR308 




Set GPR3, 
bit 27, on 


7ern balance 


Set GPR3, 
bit 27, off 








































1410 

l-fetch 









CLF 900 



FIGURE CLF 903. MULTIPLY 
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CLF 900 



FIGURE CLF 904. DIVIDE 
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Compare 



Table Lookup 




FIGURE CLF 905. COMPARE/TABLE LOOKUP 
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Set Wordmark 



Clear Wordmark 




CLF 900 



FIGURE CLF 906. SET WORDMARK/CLEAR WORDMARK 



Clear Storage and Branch 
Length 1 1 



Clear Storage 
Length 6 



Clear Storage 
Length 1 







< 



The first block 
of l-fetch resets 
the carry stat, 
so it is 
bypassed. 



FIGURE CLF 907. CLEAR STORAGE/CLEAR STORAGE AND BRANCH 
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FIGURE CLF 908. BRANCH IF CHARACTER EQUAL 



FIGURE CLF 909. BRANCH IF BIT EQUAL 
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FIGURE CLF 912. TEST AND BRANCH 
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Logical AND Hie M/D and F regs 
with M8-15. 



d-modifier is 
in GPR4 
bits 0-7. 



Fetch contents of FPR3 (base of linkout 
table). 

Add the linkout code to the base; use 
the sum for a main storage fetch. 

The fetched word is the linkout address 
and is set into the R reg. 



QJ600 

R (Branch 
Address) — *- 
SAR 



^ \ Yes Yes X N 

WO- 3 all zero / — r* — < W4-7 all zero 



1410 
I -fetch 



DM 903 



d-modifier 
bit 1 



d-modifier 
bits 4-7 



Not zero 



Set d-mod bits 
4-7 to 1010. 



Restores bit 
values to 
original 1410 
values for the 
bit comparison. 



Reset Priority 
Alert Mode 
(GPR3 bit 
zero / 0-bit). 



Set Priority 
Alert Mode 
(GPR3 bit 
zero = 1 bit). 



Successful branch on\ 
Sel I/O Unit Irpt Reqj 
Jrpt bit y 



Reset the Sel 
I/O Unit Irpt 
Req bit (GPR3 
bit 8). 



Restore GPR3 
with bits reset. 



Set d-mod bit one to a 
0 bit, and invert bits 2 
and 3 (zone bits). 



Reset the 
E ch Irpt, 

Req bit 
(GPR3 bit 5). 



Logical AND the 
modified d-mod byte 
with specific channel's 
status byte from 
GPR4. 



FIGURE CLF 914. PRIORITY TEST AND BRANCH 



Any othen 
E-ch 

i ndicator . 
T Yes 



(E ch seek 
complete 
E ch overlap 
complete, or 
E ch inquiry 
request) 



CLF 900 



2 (41) 



4(42) 



W 0-7 



Not zero (branch) 



All Zero (no branch) 



Not Group 
Mark > 



d-modifier 



Reset channel's I/O 
interlock by restoring 
status byte in GPR4 
with bit zero a 
1 bit. 



Group 

Mark 

(hex 

OF) 



Op Code 
C 7 (G) 



QR385 

CAR to H 
register, d-mod 
to M/D and F 
registers. 



A (45) 



Fetch AAR 
from GPR6. 



Fetch BAR 
from GPR7 



Exclusive OR 
M/D ctr (d- 
mod 0-3) with 
bits 01 00. 



W 0-3 
all zero 



Fetch EAR 
from FPR3 
plus hex 20 
location 
in linkout 
table . 



C (46) 

Fetch FAR 
from FPR3 
plus hex 24 
location in 
linkout 
table. 



(d-mod 
was 
hex 4) 



Shift the 


F reg 


(d-mod 4-7) 


left one. 





Spill bit a 
1-bit 



Subtract base address 
of 1410 storage (FPR0) 
from address register 
value. 



Unpack decimal 
address value and store 
each digit value in bits 
4-7 of CAR field (5 
bytes) preserving bits 
0-3 of each byte. 



Fetch GAR 
from FPR3 
plus hex 28 
location in 
linkout 
table . 



Do not restore 
channel's I/O 
interlock because test 
has not been 
satisfied. 



Reset channel's I/O 
interlock by restoring 
status byte in GPR4 
with bit zero a 1 bit. 








\ 1 


f 1 






Linkout code 
is hex 010 
(invalid d- 
modifier). 



0 (40) 
6 (43) 
8 (44) 



No (d-mod 
was hex 
. 40 to 47) 



Fn Br on\ 
shifted F reg 
v value ^ 



QR185 



Fetch contents of FPR3 (base of 
linkout table). 

Add linkout code to line; use sum for 
a main storage fetch. 

Fetched word is linkout address and is 
set into R reg. 



QJ600 



R (Branch 
Address ) - 
SAR 



QR390 

Convert binary 
remainder to its 
packed decimal value 
and save it in R 
register. 



Fetch CAR 
field from main 
storage . 



1410 
I -fetch 



CLF 900 



d-modifier 1410 

After Address 

Original Shifting Register 



CLF 900 



CLF 900 



CLF 122 



Location 

GPR6 

GPR7 

Word 8 of 
Linkout Table 

Word 9 of 
Linkout Table 

Word 1 0 of 
Linkout Tabie 



FIGURE CLF 913. BRANCH ON E/F/ OR G CHANNEL STATUS 



FIGURE CLF 915. STORE ADDRESS REGISTER 
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EBCDIC-II 

d-modifier 



Function 



Op Code 
9B ($) 



QR405 



Store 

Channel 



d-modifier* 
bits 2 and 3 



d-modifier bits 4-7 to 
G2 ctr, then decrement 
G2 twice. 



d-modifier 
bits 6 and 7 



E ch 



F ch 



G ch 



62 


Store CPU status 


59 


Restore CPU status 


45 


Store E channel status 


46 


Store F channel status 


47 


Store G channel status 


71 


Restore E channel status 


72 


Restore F channel status 


73 


Restore G channel status 



G2 = 0 



Yes 

(Original d-mod 
was hex 62; 
store CPU 
status)- 



01 , 1 0, or 11 



d-modifier 
bits 4 and 5 



Decimal add a 
carry-in (0001) 
to d-mod bits 
4-7. 



Sum is 0000 




Linkout code 
is Hex 010 
(invalid d- 
mod). 




Fetch E ch status byte 
from GPR4 bits 8-15. 



Fetch F ch status byte 
from GPR4 bits 16-23. 



Fetch G ch status byte 
from GPR4 bits 24-31 . 



Restore 

Channel 



Restore the byte with 
bit zero = 1 bit. 



Reset Restore byte with bit 

'/° zero =1 bit. 

Interlock 



Restore byte with bit 
zero = 1 bit. 



d-modifier 
bits 6 and 7 



E ch 



G ch 



Use GPR3 


Use GPR3 


Use GPR3 


bit 1 . 


bit 2. 


bit 3. 



Fetch CPU status byte from GPR3 bits 24-30. 
Shift the byte right one position to align the 
bits and set it into L reg 25-31 . 



Overlap irN. Yes (0 bit) 
Process / L 



No (1 bit) 



d-modifier 
bits 4 and 5 



00,10, or 11 




Set channel's status 
byte into L req 
25-31. 



Same 
type of 
test 



Recode bits of 1410 status byte to EBCDIC-II 
coding: 

1. 1410 8-2 numeric to EBCDIC-II 0000. 

2. Invert bits 2 and 3 (zone bits). 

3. If the 1410 numeric is hex 0 to hex 9, set 
EBCDIC-II bit one to a 1 bit. 




QR4I0 

Compute Disable 
GPR5 to IAR. 

(Restores IAR to original value to refetch this 
instruction again until channel operation is 
completed. ) 




Store modified byte 
in GPR4 bits 8-15. 



Use GPR3 
bit 8. 



Use GPR3 
bit 16. 



Use GPR3 
bit 24. 



I/O InterloclNs^ Yes (Obit) 
On / 



No (1 bit) 



Overlap in N. Yes (0 Bit) 
Process 



No (1 Bit) 



Linkout code 
is Hex 100 
(I/O Interlock 
error) 



Linkout code 
is Hex 010 
(invalid d- 
mod) 



QR185 



Fetch contents of FPR 3 (base of linkout table). 
Add linkout code to the base; use sum for a 
main storage fetch. 

Fetched word is the linkout address and is set 
i nto R reg . 



Fetch status 
byte from BAR 
location of 
main storage. 

QR415 



QJ600 



R (Branch 
Address) - 
SAR 



BAR -1 


to 


GPR7. 





BRN 



Decode 
EBCDIC-il 
status byte to 
141 0 coding. 



CLF 122 



Restore whar 



i 


s 


v status S 




E ch 


F ch 


NX 


G ch 



Store modified byte 
in GPR4 bits 16-23. 



Store modified byte 
in GPR4 bits 24-31 . 



CPU 



Shift modified byte 
left-one position, and 
store it in GPR3 bits 
24-31. 



1410 

l-fetch 



CLF 900 



FIGURE CLF 916. STORE OR RESTORE STATUS 
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G ch 





Op Code 
D4 (M) 



Op Code 
D3 (L) 



Op Code 
E4 (U) 



Set stats 4,5 
and CC to 00 



Set stats 4,5 
and CC to 10 



Set stats 4,5 
and CC to 1 1 



Op Code 
D2 (K) 




Linkout code 
is hex 018. 



Linkout code 
hex 01 C. 



QR800 

Stat 0 is off. 



QR800 

Stat 0 is off. 



QR800 
Set stat 0 on, 



QR801 



QR850 

SI is on. 



QR850 



SI is off. 



Test channel 
interlock bit 



0 bit (I/O interlock error) 




L reg 
R reg 



d-mod E ch 



X3 

G ch 1 (GPR4) 



1 bit 



Linkout code 
is hex 1 00 



Status Bytes 



No (nonover lap)/ ctr even 



Linkout code 
is hex 1 00 



Invalid XI 



Test XI for 
channel 



Fetch 

the overlap 
indicators 
from GPR3 . 



Yes (overlap) 



Linkout Code 
is hex 1 1 0. 



Overlap N 
I/O operation in 
V process > 



1410 

1-Fetch 



QR410 j r 

GPR5— MAR (Restores 
IAR to original 
value to re fetch this 
instruction 
again). 



Yes (Compute Disable) 



Set the I/O interlock 
on (0 bit) and clear 
the status by storing 
hex 00 in channel 's 
status byte in 
1GPR4. 

QR802 

s ' Test X2 for \ 
\ device 



Invalid X2 



DM 903 



Linkout code 
is hex 1 0C. 



Disk 



Tape 

Even 



Tape 

Odd 



Typewriter 



Card 

Reader 



Printer 



Punch 



Col Bin 
Punch 



Set GP stats 6 and 7, M/D ctr, 
and M reg (24-31) to identify 
the I/O device. 




Develop and Save the linkout Code: 

1 — : t ~ 



On (U op) 



U op (SO) 



Develop one 
of three 
linkout 
codes. 



Channel 
(S4 and 5) 



Linkout code 
is hex 1 14. 



Invalid X3 



Test X3 for unit 
address 



Valid X3 



Use the 
previously 
developed 
linkout code. 



> — — — - — 






Linkout code 
is hex 1 08. 


F or G channel 

> 




Linkout code 
is hex 1 04. 











QR185 

Fetch contents of FPR3 (base 
of the linkout table). 

Add linkout code to base; use 
sum for a main storage fetch. 
Fetched word is linkout 
address and is set into R reg. 



Test E channel 
interlock bit 



1 bit 

Set I/O interlock on 
(0 bit) and clear the 
E channel status by 
storing hex 00 in 
GPR4 bits 8-15. 





QJ600 



R (branch 
I address)— 
SAR 



BRN 



CLF 122 



FIGURE CLF 917. EDIT/ZERO SUPPRESS/I/O INSTRUCTIONS 
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Linkback (8300 0AB1) 

This routine is the program linkage from the 
emulator program back to the 1410 instruction stream. 




Bypass the System/360 
exception test and 
resume 1 41 0 
instruction stream 
on QR010. 



Special Scan (83x0 0A36) CCW Generate (83x0 0AB5) 

This routine scans the 1410 I/O data field and counts the number of bytes anticipated This routine generates a string of CCWs for the 

by the 1410 I/O instruction. The resulting count is used in the System/360 CCW disk emulation programs. Generated CCWs 

count field. are stored in main storage, each one separated 




FIGURE CLF 918. DIAGNOSE KERNELS (SHEET 1 OF 2) 
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Start I/O (83x0 0AB8) 

This routine initiates a System/360 I/O 
operation on a selector channel that is 
simulating a 1410 tape or file operation. It 
permits special control bits in CAW 4-7 and 
CCW 37-39 to modify the selector channel 
operation. 




To CLF 225 on QK 701 
to wait in the 153 countdown 
loop for the reply. 



FIGURE CLF 918. DIAGNOSE KERNELS (SHEET 2 OF 2) 




Form Z22-2833-4 
Page Added 8/1/66 
by FES Z22-6600-1 





FE Supplement 



System/Unit System/360 Model 50 
Re: Form No. Z22-2833-4 
This Supplement No. Z22-6600-1 
Date August 1, 1966 
Previous Supplement Nos. None 



FIELD ENGINEERING DIAGRAM MANUAL, IBM SYSTEM/360 
MODEL 50—2050 PROCESSING UNIT, FORM Z22-2833-4 



This supplement to the subject manual provides diagrams for the 7070/7074 Compati- 
bility Feature, the 1410/7010 Compatibility Feature, system reset (CLF 126), and 
IPL (CLF 127). The system data flow diagram (SDF 000) has been updated to show 
new form numbers, and the 1052 Adapter diagrams (IOP 301-306) have been updated. 

Changed or new figures are indicated by a vertical line in the table of contents and 
changed figures are indicated by the symbol (•) to the left of the figure title. 

Substitute the attached table of contents, SDF pages, and revised IOP pages for 
respective pages in the manual. Insert CLF 126 and CLF 127 in the proper place, 
and add diagrams for the compatibility features at the back of the manual. 

File this page at the back of the manual. It will provide a reference to changes, 
a method of determining that all amendments have been received, and a check that 
the publication contains the proper pages . 



IBM CONFIDENTIAL 



International Business Machines Corp., Product Publications Dept., Poughkeepsie, N. Y. 12602 



PRINTED IN U.S.A. 



FES Z22-6600-1 (Z22-2833-4) Page 1 of 1 



CUT ALONG LINE 



COMMENT SHEET 



COMMENT SHEET 



IBM SYSTEM/ 360 MODEL 50, 2050 PROCESSING UNIT 

FIELD ENGINEERING DIAGRAM MANUAL, FORM Z22-2833-4 



IBM SYSTEM/360 MODEL 50, 2050 PROCESSING UNIT 

FIELD ENGINEERING DIAGRAM MANUAL, FORM Z22-2833-4 



FROM 

NAM E - 
CITV/STATE 



office/dept no. 

— DATE 



FROM 

NAM E 

CITY/ STATE 



office/dept no. 

_ DATE 



To make this manual more useful to you, we want your comments: what 
additional information should be included in the manual; what description 
or figure could be clarified; what subject requires more explanation; what 
presentation is particularly helpful to you; and so forth. 



To make this manual more useful to you, we want your comments: what 
additional information should be included in the manual; what description 
or figure could be clarified; what subject requires more explanation; what 
presentation is particularly helpful to you; and so forth. 



O 

c 

H 

> 

r 

o 

z 

Q 

r 

z 

m 



How do you rate this manual: Excellent Good Fair Poor 

Suggestions from IBM Employees giving specific solutions intended for award 
considerations should be submitted through the IBM Suggestion Plan. 

NO POSTAGE NECESSARY IF MAILED IN U.S.A. 



| How do you rate this manual: Excellent Good Fair Poor 

l Suggestions from IBM Employees giving specific solutions intended for award 

I considerations should be submitted through the IBM Suggestion Plan. 

| 

| NO POSTAGE NECESSARY IF MAILED IN U.S.A. 

| FOLD ON TWO LINES (LOCATED ON REVERSE SIDE), STAPLE AND MAIL 

■ ' 



FOLD ON TWO LINES (LOCATED ON REVERSE SIDE), STAPLE AND MAIL 



i 



fold 



fold 



fold 



fold 



FIRST CLASS 
PERMIT NO. 81 
POUGHKEEPSIE, N.Y. 



BUSINESS REPLY MAIL 

NO POSTAGE NECESSARY IF MAILED IN THE UNITEQ STATES 



POSTAGE WILL BE PAID BY . . . 

IBM CORPORATION 

P.O. BOX 390 
POUGHKEEPSIE, N.Y. 12602 



ATTENTION: FE MANUALS, DEPT. B96, BLDG. 948 




FIRST CLASS 
PERMIT NO. 81 
POUGHKEEPSIE, N.Y. 



BUSINESS REPLY MAIL 

NO POSTAGE NECESSARY IF MAILED IN THE UNITEQ STATES 



POSTAGE WILL BE PAID BY . . . 

IBM CORPORATION 

P.O. BOX 390 
POUGHKEEPSIE, N.Y. 12602 



ATTENTION: FE MANUALS, DEPT. B96, BLDG. 948 




fold 



fold 



fold 



fold 





































Z22-2833-4 



1 

{ 

t 

i 





® 



International Business Machines Corporation 

Field Engineering Division 

112 East Post Road, White Plains, N.Y. 10601 



Printed in U. S. A. Z22-2833-4 



